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 debug权限提升

Delphi 防止程序重复打开运行

Delphi getfilesize 获取文件大小 2

Delphi获取dos命令行输出函数 运行cmd命令并获取结果

Delphi 以bytes为单位获取文件大小

Delphi 7 编写一个ie右键菜单项目:自动保存图片

Delphi 运行时提升软件到管理员权限

Delphi urlencode与urldecode

Delphi 使用google translate实现tts

Delphi 如何得到 winrar 处理解压缩文件的返回值 ?

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



打赏

取消

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

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

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

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

评论

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