时间戳与日期互转

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;