delphi 时间转时间戳

代码如下

function Gettimestamp(dateTimeStr:String): string;
var
 unix_time:int64;
begin
    unix_time:=Datetimetounix( IncHour( strToDateTime(dateTimeStr),-8) );  //减8小时
    Result := inttostr(unix_time);
end;