(Gast)
n/a Beiträge
|
DateTime to UnixTimestamp und zurück
22. Apr 2003, 15:14
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]
|
|
Zitat
|