C++ DateTime in Delphi TDateTime umwandeln.

[Andreas L.]

Ok, der Code funktioniert wunderbar. Jetzt muss ich nur noch einen DateTime in einen WebKit-Time Wert umwandeln. Ich hab dazu die Routine umgedreht:

Delphi-Quellcode:

function DateTimeToWebKitTime(const ADateTime: TDateTime;
  out AWebkitTime: TWebKitTime): Boolean;
var
  FileTime: TFileTime;
begin
  FileTime := DateTimeToFileTime(ADateTime);
  if Result then
  try
    AWebkitTime := TWebKitTime(FileTime) div 10;
  except
    on E: EConvertError do
      Result := False;
  end;
end; 

function DateTimeToFileTime(Value: TDateTime):TFileTime;
var
  SystemTime: TSystemTime;
begin
  DateTimeToSystemTime(Value, SystemTime);
  SystemTimeToFileTime(systemtime, Result);
end;

Wenn ich jetzt 19.02.2009 19:02 umwandle erhalte ich -1456136888. Wo liegt der Fehler?