delphi 获取时间戳 如何获得 和 js 中 new Date().getTime();的 相同？

new Date().getTime();  //1533213439019

 

经过，启发

function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
Result := SecondsBetween(UnixDateDelta, AValue);
if AValue < UnixDateDelta then
Result := -Result;
end;

获得秒级别的，本人改造一下：

MilliSecondsBetween(UnixDateDelta, Now )；获得的是比 JavaScript  获得的大不少的数，猜测应该获取的是 

解析：它获得的时间比c语言中time()获得的时间大了8*60*60
这是由于Now是当前时区的时间，c语言中time()是按格林威治时间计算的，
北京时间比格林威治时间多了8小时

 

最终写成：如今的时候 -8 

MilliSecondsBetween(UnixDateDelta, IncHour(Now,-8) )