C++ DateTime in Delphi TDateTime umwandeln.

[Andreas L.]

OK, ich hab jetzt weitere Infos. Es scheint sich um das von Webkit verwendet Datumsformat zu handeln:

Zitat:

WEBKIT time which is the number of microseconds since midnight UTC of 1 January 1601

Wie könnte ich das nun am besten umrechnen?

EDIT: Ich hab mir jetzt mal die UnixToDateTime-Routinen angesehen und ein bisschen gebastelt:

Delphi-Quellcode:

const
  WebKitTimeDelta                     = 256036; //Tage zwischen 31.12.1899 und 01.01.1601 (glaube der Wert ist falsch)
...
...

function DateTimeToWebKitTime(const AValue: TDateTime):Int64;
begin
  Result := Round((AValue - WebKitTimeDelta) * MSecsPerDay);
end;

function WebKitTimeToDateTime(const AValue: Int64):TDateTime;
begin
  Result := AValue / MSecsPerDay + WebKitTimeDelta;
end;

Funktioniert leider nicht:
  DateTimePicker3.DateTime := WebKitTimeToDateTime(StrToInt64(Edit2.Text)); Wert von Edit2: 12884278663641352
Debugger zeigt als Ergebnis von WebKitTimeToDateTime: 149379631,64
DateTimePicker3 verändert sich aber nicht