如何将自1970年以来的C/unix整数日期时间(以秒为单位)转换为Delphi中的DateTime？

Question

我知道如何使用python的时间将"1328834615"转换为日期.

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

如何使用Delphi进行操作？

Answer 1

尝试使用UnixToDateTime属于DateUtils单元的函数.

{$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.