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;

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏