Unix Timesamp

[delphinia]

Habe Probleme mit diesen Funktionen

Delphi-Quellcode:

UnixStartDate: TDateTime = 25569.0;

function GetUnixTime(Zeit: TDateTime): LongInt;
const UnixDateDelta = 25569;
begin
  // Liefert die Zeit als Unix TimeStamp zurück...
  Result := Round(((Zeit - UnixDateDelta) * 24 * 60 * 60) - 7200.5);
end;

function DateTimeToUnix(ConvDate: TDateTime): Longint;
begin
  //example: DateTimeToUnix(now);
  Result := Round((ConvDate - UnixStartDate) * 86400);
end;

und zwar stimmt der ausgebene Timestamp NICHT

label3.Caption := IntToStr(DateTimeToUnix(now)); Da bekomme ich derzeit den TimeStamp:
1150989210 - Laut php-Timestamp ist es aber 1150982010
Der Delphi-Timestamp verrechnet sich ergo um 7200 Sekunden.

Warum?!


Code kommt von http://www.swissdelphicenter.ch/de/showcode.php?id=844

[Gaijin]

Zitat von delphinia:

Da bekomme ich derzeit den TimeStamp:
1150989210 - Laut php-Timestamp ist es aber 1150982010
Der Delphi-Timestamp verrechnet sich ergo um 7200 Sekunden.

Delphi rechnet nur den mit "ConvDate" angegebenen TDateTime-Wert in der lokalen Zeitzone in eine Zahl um. Wenn sich die PHP-Ausgabe um genau 7200 Sekunden unterscheidet, entspricht das der UTC (GMT) Zeit.

[delphinia]

Hmm wie kann ich diesem Vorbeugen?!

[arbu man]

Einfach -7200 Sekunden rechnen oder ?

[Gaijin]

Zitat von delphinia:

Hmm wie kann ich diesem Vorbeugen?!

Wenn du von der aktuellen Zeit (Now) die UTC-Zeit benötigst, geht es mit "GetSystemTime" bzw. EncodeDateTime am einfachsten.