C++ DateTime in Delphi TDateTime umwandeln.

[nicodex]

Keine Ahnung, bei mir geht folgendes unter Delphi 2009:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
resourcestring
  StrWebKitTimeConvertError = 'Failed to convert WebKitTime to DateTime.';
var
  DateTime: TDateTime;
begin
  if WebKitTimeToDateTime(StrToInt64(Edit1.Text), DateTime) then
    DateTimePicker1.DateTime := DateTime
  else
    raise EConvertError.Create(StrWebKitTimeConvertError);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  DateTime: TDateTime;
begin
  DateTime := DateTimePicker1.DateTime;
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss,zzz', DateTime));
  Edit1.Text := IntToStr(DateTimeToWebKitTime(DateTime));
end;

DateTimePicker1.Format ist 'yyyy-MM-dd HH:mm', dürfte aber keine Rolle spielen.