Funktion um Zeitpunkt in Unix-Zeit zu wandeln - TDateTime=?

**Tempdir**

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:

markieren

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!

Funktion um Zeitpunkt in Unix-Zeit zu wandeln - TDateTime=?

Funktion um Zeitpunkt in Unix-Zeit zu wandeln - TDateTime=?

Forumregeln