Delphi获取时间戳

uses DateUtils;

function GetCurrTimeStamp(timen: TDateTime):string;
var
  time:TDateTime;
  s1,s2:int64;
begin
  time := EncodeDateTime( 1970, 1, 1, 0, 0, 0, 0 );
  s1 := 28800000;
  s2 := MilliSecondsBetween(timen, time);
  s2 := s2 - s1;
  Result := IntToStr(s2);
end;

路过的点个赞再走，谢谢~😊😊😊😀😀😀