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》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...