Google Chrome Time nach TDateTime

[Phoenix]

Was bitte ist ein Datumsstring von "Google Chrome"? Meinst Du den Wert eines Javascript-Date Objektes? Schliesslich ist Chrome nur ein Webkit-Browser mit der V8 Javascript-Engine.

[BUG]

Ich denke diese Funktion ist gut erklärt und kann einfach umgebaut werden.

Mich würde aber auch interessieren, wo solche merkwürdigen Timestamps in Chrome verwendet werden.

[Shark99]

Zitat von Phoenix:

Was bitte ist ein Datumsstring von "Google Chrome"? Meinst Du den Wert eines Javascript-Date Objektes? Schliesslich ist Chrome nur ein Webkit-Browser mit der V8 Javascript-Engine.

Chrome schreibt verschiedene Data Files (Bookmarks, History etc) in JSON format, dort gibt es die Datum Strings eben in diesem Windows NT Zeitformat, aber mit 17 statt 18 stellen.

Zitat von BUG:

Ich denke diese Funktion ist gut erklärt und kann einfach umgebaut werden..

Das war meine Ausgangsbasis. Habe in einem Thread den Tip bekommen die rechten 6 Stellen abzuschneiden von dem Chrome Zeitstring und dann die Unix Time konvertierung anzuwenden. Leider kam dabei dann das Jahr 23xx raus.

[Phoenix]

Wenn es JSON ist, hast Du einfach mal versucht das als einen Javascript-Date-Wert zu verarbeiten?
Der einfachste Check wäre, ein new Date('value') in der Chrome-Javascript Console (Developer tools) zu machen, und dann zu schauen ob da was Sinnvolles bei rauskommt.

[Shark99]

Es kommt dann 'Invalid date'

[BUG]

Mhm, ich habe es eben auch nicht so hingekriegt

Egal, dann eben ohne überlegen:

Code:

const factor = 1.45218472707248E-12;
const StartDate: TDateTime = 22282 {1.1.1961};

function DateTimeToChrome(ConvDate: TDateTime): UInt64 ;
begin
Result := round((ConvDate - StartDate) / factor);
end;

function ChromeToDateTime(ticks: UInt64): TDateTime;
begin
  Result := (ticks * factor) + StartDate;
end;

function calcFactor: double;
begin
  result := (StrToDateTime('25.08.2012 09:25:01') - StartDate)/12990353101092500.0;
end;

Jetzt Daumen drücken und hoffen (=> Testen), dass es wirklich so linear geht

[Shark99]

BUG, danke für den Versuch, aber es klappt noch nicht.

Hab so getestet:

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := DateTimeToStr(ChromeToDateTime(12990353101092500)) ;
end;

Ergebnis: 00.00.0000 14:40:47

[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;

[Sir Rufo]

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

[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.