DateTime to UnixTimestamp und zurück

[RobertS]

Delphi-Quellcode:

function TForm1.CodeUnixDateTime(DatumZeit: TDateTime): Integer;
begin
  Result := ((Trunc(DatumZeit) - 25569) * 86400) +
            Trunc(86400 * (DatumZeit - Trunc(DatumZeit))) - 7200;
end;

Delphi-Quellcode:

function TForm1.DeCodeUnixDateTime(DatumZeit: Integer): TDateTime;
begin
  Result := ((DatumZeit + 7200) / 86400) + 25569;
end;

Viel Spaß damit.

mfg
Robert

[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]