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 字符串加密解密代码

Delphi批量删除同类文件(带通配符)

Delphi mac地址转换字符串

Delphi实现身份证号码15到18位升位算法

Delphi 防止程序重复执行的单元

Delphi编程实现图像的淡入浅出

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi读写文本文件

Delphi html转义

Delphixe 如何调用stringtojstring

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

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