Beispiel - UNIX Datumskonvertierungen

Erläuterung

Konvertierung eines UNIX TimeStamps nach Delphi und zurück.

Skript

function UNIXTimeToDateTime(UnixTime : LongWord): TDateTime;
begin
  Result := (UnixTime / 86400) + 25569;
end;
function DateTimeToUNIXTime(DelphiTime : TDateTime): LongWord;
begin
  Result := Round((DelphiTime - 25569) * 86400);
end;