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 xe5下安卓开发技巧

Delphi-基础（for循环）

Delphi sametext

Delphi线程简单创建、挂起、激活与终止

Delphi inc () 计数用法

Delphi findfiles获取目录下所有文件

Delphi xe 打开andorid gps设置

Delphi之木马生成原理（资源文件，和文件流的应用）

Delphi中tinifile类 操作ini文件

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

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