Konvertierung UnixTimeStamp nacht TDateTime und zurück

[KodeZwerg]

Warum nicht die Funktionen aus DateUtils.pas verwenden?

Delphi-Quellcode:

uses nichts;

const
  UnixDateDelta = 25569;
  SecsPerDay    = 86400;


function DateTimeToUnix(const AValue: TDateTime): Int64;
begin
  Result := Round((AValue - UnixDateDelta) * SecsPerDay);
end;

function UnixToDateTime(const AValue: Int64): TDateTime;
begin
  Result := AValue / SecsPerDay + UnixDateDelta;
end;