Как преобразовать целочисленное значение datetime C / unix в секундах с 1970 года в DateTime в Delphi?

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.