C++ DateTime in Delphi TDateTime umwandeln.

[nicodex]

Delphi-Quellcode:

type
  TWebKitTime = UInt64;

function WebKitTimeToDateTime(const AWebKitTime: TWebKitTime;
  out ADateTime: TDateTime): Boolean;
var
  SystemTime: TSystemTime;
begin
  Result := FileTimeToSystemTime(TFileTime(AWebKitTime * 10), SystemTime);
  if Result then
  try
    ADateTime := SystemTimeToDateTime(SystemTime);
  except
    on E: EConvertError do
      Result := False;
  end;
end;

function DateTimeToWebKitTime(const ADateTime: TDateTime): TWebKitTime;
var
  SystemTime: TSystemTime;
begin
  DateTimeToSystemTime(ADateTime, SystemTime);
  SystemTimeToFileTime(SystemTime, TFileTime(Result));
  Result := Result div 10;
end;

procedure TestWebKitTime();
const
  WebKitTimeText = '12879544607645573';
var
  DateTime: TDateTime;
begin
  if WebKitTimeToDateTime(StrToInt64(WebKitTimeText), DateTime) then
    ShowMessage(
      WebKitTimeText + #13#10 +
      FormatDateTime('yyyy-mm-dd hh:nn:ss,zzz', DateTime) + #13#10 +
      IntToStr(DateTimeToWebKitTime(DateTime)));
end;