Forum: Object-Pascal / Delphi-Language
by Tempdir,
20. Mär 2009
Also ich arbeite momentan nur mit dem NOW-Wert:
DateTimeToUnix(Now);
Macht das Probleme wenn meine Software auf einem amerikanischen System laufen würde? Diese "Zeitstempel" die ich da erstelle, sind nur zur Laufzeit aktiv. Also nach schließen des Programms sind alle weg.
Forum: Object-Pascal / Delphi-Language
by Tempdir,
20. Mär 2009
Funktioniert - PERFEKT - DANKE :o)
DatumZeit := StrToDateTime('01.01.1970 01:30:15');
ShowMessage(IntToStr(DateTimeToUnix(DatumZeit)));
= 5415
Forum: Object-Pascal / Delphi-Language
by Tempdir,
19. Mär 2009
-1785 ... scheint nicht ganz so zu stimmen ;)
Forum: Object-Pascal / Delphi-Language
by Tempdir,
19. Mär 2009
Hallo,
hier im Forum gibt es von RobertS diese kleine Funktion um einen Zeitpunkt (DatumZeit) in Unix-Zeit zu wandeln:
function TForm1.CodeUnixDateTime(DatumZeit: TDateTime): Integer;
begin
Result := ((Trunc(DatumZeit) - 25569) * 86400) +
Trunc(86400 * (DatumZeit - Trunc(DatumZeit))) - 7200;