delphi 时间戳与日期互转

本文整理自网络，侵删。

 

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;

 

相关阅读 >>

vclzip控件显示压缩进度

Delphi替换字符串中的单引号

Delphi中根据程序名称判断是否多开

Delphi 如何识别应用程序没有响应

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

使用滑块实现图片的放大和缩小

Delphi playsound()函数应用

Delphi 域名转ip并判断ip是否可以联通 复制代码

Delphi 简单方法搜索定位treeview项

Delphi sqlite 简明上手指南

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 时间戳与日期互转