Dephi时间戳与日期互转 - CSDN博客

1、日期转换成时间戳function Gettimestamp: string; begin    Result := inttostr(DateTimeToUnix(IncHour(Now,-8)));    //  本地时间减8小时end;2、时间戳转换成日期function UnixDateToDateTime(const USec: Longin

来源： 时间戳与日期互转 – CSDN博客

1、日期转换成时间戳

function Gettimestamp: string;
begin
Result := inttostr(DateTimeToUnix(IncHour(Now,-8)));    //  本地时间减8小时
end;

2、时间戳转换成日期

function UnixDateToDateTime(const USec: Longint): TDateTime;
const
UnixStartDate: TDateTime = 25569.0;      // 1970/01/01
begin
Result := (Usec / 86400) + UnixStartDate;
Result  := IncHour(Result,8);
end;