delphi Unix时间转换成delphi时间

本文整理自网络，侵删。

 
uses DateUtils;


 function DelphiDateTimeToUnixDateTime(DTime: TDateTime): Integer;
begin
  Result := SecondsBetween(DTime,EncodeDateTime(1970,1,1,0,0,0,0));
end;

 function UnixDateTimeToDelphiDateTime(UnixDateTime: Integer): TDateTime;
begin
  Result := EncodeDate(1970,1,1)+(UnixDateTime/86400);
end;
 

相关阅读 >>

Delphi exe执行程序dos参数的运用

Delphi 虚拟键码对照表

Delphi uses 子句的写法

Delphi webbrowser1 网页提交按钮执行点击事件

Delphi 比较完整的listview1用法

Delphi tdirectory.getdirectories获取子目录及文件

Delphi unicode转汉字 ，支持自动过滤非 unicode编码

Delphi自动适应屏幕分辨率的属性

Delphi 另类计算程序代码运行耗时

Delphi 生成可以控制最大32位随机英文数字字符串

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

转载请注明出处：木庄网络博客 » delphi Unix时间转换成delphi时间