Hallo,
hier im Forum gibt es von RobertS diese kleine Funktion um einen Zeitpunkt (DatumZeit) in Unix-Zeit zu wandeln:
Delphi-Quellcode:
function TForm1.CodeUnixDateTime(DatumZeit: TDateTime): Integer;
begin
Result := ((Trunc(DatumZeit) - 25569) * 86400) +
Trunc(86400 * (DatumZeit - Trunc(DatumZeit))) - 7200;
end;
Kann mir bitte jemand dabei helfen, mit WAS genau ich diese Funktion füttern muss?
Ich habe mal folgendes probiert:
Delphi-Quellcode:
Procedure DatetoUnix;
var DatumZeit: TDateTime;
begin
DatumZeit := StrToDateTime('05.04.2007 11:13:34');
ShowMessage(IntToStr(CodeUnixDateTime(DatumZeit)));
end;
Er gibt mir auch eine Zahl aus, allerdings hab ich keine Ahnung ob das so stimmt?
Besten Dank vorab!