Google Chrome Time nach TDateTime

[Shark99]

Zitat von Bummi:

Folgendes bedürfte IMHO noch der Zeitzonen und Sommerzeitbehandlung, ansonsten meine ich passt es

Delphi-Quellcode:

Function MyDateTime(d:Double):TdateTime;
begin
  Result := (d/1000000 + EncodeDate(1601,1,1) * (24*60*60))/(24*60*60) ;
end;

Wie wende ich deinen Code auf das Beispieldatum 12990353101092500 an?

Zitat von Sir Rufo:

Irgendwie riecht das so, als ob man mit FileDateToDateTime da weiter kommt

FileDateToDateTime erwartet einen Integer, das Beispieldatum 12990353101092500 ist jedoch ULONG btw Int64.

[Luckie]

Das (24*60*60))/(24*60*60) ist doch eins oder nicht?

[Shark99]

Zitat von luckie:

das (24*60*60))/(24*60*60) ist doch eins oder nicht?

1.0!

[Luckie]

OK, ändert aber nichts an der Rechnung.

[Bummi]

Delphi-Quellcode:

function GMTBias : Integer;
var TZI : TTimeZoneInformation;
begin
 if GetTimeZoneInformation(TZI) = TIME_ZONE_ID_DAYLIGHT then Result := TZI.DaylightBias
 else Result := 0; Result := Result + TZI.Bias;
end;
function LocalTimeToGMTTime(const D: TDateTime): TDateTime;
begin
Result := D + GMTBias / (24.0 * 60.0);
end;


function GMTToLocalTime(GMTTime: TDateTime): TDateTime;
var
  GMTST: Windows.TSystemTime;
  LocalST: Windows.TSystemTime;
begin
   SysUtils.DateTimeToSystemTime(GMTTime, GMTST);
   SysUtils.Win32Check(Windows.SystemTimeToTzSpecificLocalTime(nil, GMTST, LocalST));
   Result := SysUtils.SystemTimeToDateTime(LocalST);
end;

Function MyDateTime(d:Double):TdateTime;
begin
  Result := (d/1000000 + EncodeDate(1601,1,1) * (24*60*60))/(24*60*60) ;
  Result := GMTToLocalTime(Result)
end;

procedure TButton.SetText(var msg: TMessage);
begin
end;


procedure TForm2.Button2Click(Sender: TObject);
begin
   Caption :=DateTimeToStr(MyDateTime(12990353101092500));// 25.08.2012 09:25:01
end;

@Lucky
ist 1 wenn man die Klammer ignoriert

[Luckie]

Oh, habe eine Klammer übersehen.

[Shark99]

Danke Bummi!

[Bummi]

Bitte ...
den entscheidenden Hinweis hast Du mit wt32m.exe selbst geliefert.

http://technet.microsoft.com/en-us/l...(v=ws.10).aspx