如何將1970年以來的C/unix整數日期時間以秒爲單位轉換爲Delphi中的DateTime？

Question

我知道如何使用python的時間將「1328834615」轉換爲日期。

>>> import time 
>>> time.ctime(1328834615) 
'Fri Feb 10 08:43:35 2012' 

如何使用Delphi進行操作？

Answer 1

嘗試使用作爲DateUtils單元的一部分的UnixToDateTime功能。

{$APPTYPE CONSOLE} 

uses 
    DateUtils, 
    SysUtils; 

Var 
    Dt : TDateTime; 
begin 
    try 
    Dt := UnixToDateTime(1328834615); 
    //do something 
    Writeln(FormatDateTime('ddd mmm d hh:nn:ss yyyy', Dt)); 

    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end.