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 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi 如何使用通配符删除文件

改写个Delphi 版 lz前辈的openprocess

Delphi xe 编译开关-一套代码不同平台编译

Delphi 打开webbrowser的选中文件路径

Delphi 实现执行外部程序，并等待程序结束的函数

Delphi 计算imei的校验位

Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表

Delphi 获取超gb大文件大小

Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)

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

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