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;

 

相关阅读 >>

Delphi获取操作系统安装磁盘盘符

Delphi如何获得当前操作系统语言环境

Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi xe5 Delphi 解析 json

Delphi 除法 "/" 与 div 的不同

Delphi tlog 日志

Delphi 优盘背景生成器源码

Delphi 虚拟桌面服务程序

Delphi 类和对象

Delphi为你的窗体有效地提供剪贴板的相关操作

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

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