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) )