delphi 时间戳

秒级：

DateTimeToUnix(now)  //原函数不准确

//中国在东八区

datetimetoUnix(now) -8*3600

function GetTimeStemp():string;
var
  ptime: TTimeZoneInformation;
begin
  GetTimeZoneInformation(ptime);
  result:= IntToStr(Round((now - UnixDateDelta) * 86400 + ptime.Bias *60));
end;

毫秒级（13位）

function GetTimeStemp():string;

begin
      result:= IntToStr(Round((now -UnixDateDelta) * 86400*1000 - 8 * 3600*1000));
end;

function GetTimeStemp():string;
var
  ptime: TTimeZoneInformation;
begin
  GetTimeZoneInformation(ptime);
  result:= IntToStr(Round((now - UnixDateDelta) * 86400*1000 + ptime.Bias *60*1000));
end;