delphi - 如何将自 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.