delphi 时间转时间戳

代码如下：

function Gettimestamp(dateTime:TDateTime): int64;
begin
  Result := Datetimetounix( IncHour( dateTime,-8) );  //减8小时
end;