Delphi生成时间戳（秒级、毫秒级)

Delphi生成时间戳（秒级、毫秒级)

网上的引用DateTimeToTimeStamp生成毫秒级时间戳基本都是错误的：

现提供两种方法，算出的确认跟JAVA ，C++一样的

秒级：

   Edit2.Text:=IntToStr(DateTimeToUnix(Now));

   Edit3.Text:=IntToStr(DateTimeToUnix(Now)-8*60*60);

毫秒级 ：

function GetTimeStampMilliseconds:string;

var

  SysTime:TsystemTime;

  timen,time2:TDateTime;

  ss2,ss3:int64;

  str2:string;

begin

  GetLocalTime(SysTime);

  timen:= SystemTimeToDateTime(SysTime);

  time2 := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );

  ss2 := 28800000;

  ss3 := MilliSecondsBetween( timen, time2 );

  ss3 :=ss3- ss2;

  str2 := IntToStr(ss3);

  result:=str2;

end;

function GetMillisecondTimeStamp: Int64;

var

  st: TDateTime;

begin

  st := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );

  Result := MilliSecondsBetween( Now, st )-8*60*60*1000;

end;

————————————————

原文链接：https://blog.csdn.net/wh445306/article/details/124933669