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