Google Chrome Time nach TDateTime

[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