C++ DateTime in Delphi TDateTime umwandeln.

[Andreas L.]

Hi,
ich habe folgenden Wert aus einer Datei ausgelesen: 12879544607645573 Dieser Wert soll das Erstellungsdatum eines Eintrags der Datei darstellen. Ich vermute das es sich hier bei um einen DateTime-Wert handelt. Die Software mit der die Datei erstellt wurde, ist in C++ geschrieben. Ein Auszug aus dem MSDN:

Zitat:

Remarks

The DateTime value type represents dates and times with values ranging from 12:00:00 midnight, January 1, 0001 Anno Domini (Common Era) to 11:59:59 P.M., December 31, 9999 A.D. (C.E.)

Time values are measured in 100-nanosecond units called ticks, and a particular date is the number of ticks since 12:00 midnight, January 1, 1 A.D. (C.E.) in the GregorianCalendar calendar. For example, a ticks value of 31241376000000000L represents the date, Friday, January 01, 0100 12:00:00 midnight. A DateTime value is always expressed in the context of an explicit or default calendar.

http://msdn.microsoft.com/en-us/library/system.datetime(VS.71).aspx

TDateTime wird in der Delphi-Hilfe so beschrieben:

Zitat:

Der ganzzahlige Teil eines TDateTime-Wertes von Delphi entspricht der Anzahl der Tage seit dem 30.12.1899. Der fraktionale Teil des TDateTime-Wertes gibt die Tageszeit an.

Wie wandel ich das jetzt in einen TDateTime-Wert um?

[Andreas L.]

Mein bisheriger Ansatz:

• 12879544607645573 mit 100 multiplizieren um Nanosekunden zu erhalten = 1287954460764557300
• Nanosekunden in Sekunden umrechnen = 1287954460.7645574 (gerundet = 1287954461)
• Ausrechnen wie viele Sekunden zwischen dem 01.01.0001 und dem 01.01.1970 vergangen sind = 62135596800
  
  Delphi-Quellcode:

  var
    d: tDateTime;
  begin
    d := EncodeDateTime(0001, 01, 01, 00, 00, 00, 0000);
    i := DateTimeToUnix(d);  //ist hier negativ
  end;

Und wie gehts weiter?

Hmm.. ein Mathe-Genie war ich noch nie. Stecke irgendwie fest...

[Chemiker]

Hallo Andreas L.

12879544607645573 = Datum/Zeit. Welches Datum/Uhrzeit soll dieser Wert repräsentieren?

Hast Du die passenden Werte von Datum/Uhrzeit?

Bis bald Chemiker

[Andreas L.]

Zitat:

Zitat von Chemiker

12879544607645573 = Datum/Zeit. Welches Datum/Uhrzeit soll dieser Wert repräsentieren?

Hast Du die passenden Werte von Datum/Uhrzeit?

Ja, es soll der Donnerstag, 19. Februar 2009 20:16:47 sein.

[Andreas L.]

OK, ich hab jetzt weitere Infos. Es scheint sich um das von Webkit verwendet Datumsformat zu handeln:

Zitat:

WEBKIT time which is the number of microseconds since midnight UTC of 1 January 1601

Wie könnte ich das nun am besten umrechnen?

EDIT: Ich hab mir jetzt mal die UnixToDateTime-Routinen angesehen und ein bisschen gebastelt:

Delphi-Quellcode:

const
  WebKitTimeDelta                     = 256036; //Tage zwischen 31.12.1899 und 01.01.1601 (glaube der Wert ist falsch)
...
...

function DateTimeToWebKitTime(const AValue: TDateTime):Int64;
begin
  Result := Round((AValue - WebKitTimeDelta) * MSecsPerDay);
end;

function WebKitTimeToDateTime(const AValue: Int64):TDateTime;
begin
  Result := AValue / MSecsPerDay + WebKitTimeDelta;
end;

Funktioniert leider nicht:

Delphi-Quellcode:

  DateTimePicker3.DateTime := WebKitTimeToDateTime(StrToInt64(Edit2.Text));

Wert von Edit2: 12884278663641352
Debugger zeigt als Ergebnis von WebKitTimeToDateTime: 149379631,64
DateTimePicker3 verändert sich aber nicht

[Andreas L.]

Keiner eine Idee?

[Reinhard Kern]

Zitat:

Zitat von Andreas L.

Keiner eine Idee?

Hi,

ohne garantiert korrekte Wertepaare, anhand derer man die Umwandlungssoftware prüfen könnte, lohnt sich das Nachdenken nicht wirklich.

Gruss Reinhard

[Andreas L.]

Zitat:

Zitat von Reinhard Kern

Zitat:

Zitat von Andreas L.

Keiner eine Idee?

Hi,

ohne garantiert korrekte Wertepaare, anhand derer man die Umwandlungssoftware prüfen könnte, lohnt sich das Nachdenken nicht wirklich.

Gruss Reinhard

Ok, der Wert 12884375683494367 repräsentiert den 16. April 2009 19:14:45.

EDIT: Die Werte werden vom Google Chrome Browser in der Cookies-Datei im UserData-Verzeichnis abgespeichert. Ich hab auch schon den Chromium Code geladen, finde aber die entsprechende Stelle im Code nicht. Ist auch ziemlich umfangreich...

[Reinhard Kern]

Zitat:

Zitat von Andreas L.

Zitat:

Zitat von Reinhard Kern

Zitat:

Zitat von Andreas L.

Keiner eine Idee?

Hi,

ohne garantiert korrekte Wertepaare, anhand derer man die Umwandlungssoftware prüfen könnte, lohnt sich das Nachdenken nicht wirklich.

Gruss Reinhard

Ok, der Wert 12884375683494367 repräsentiert den 16. April 2009 19:14:45.

EDIT: Die Werte werden vom Google Chrome Browser in der Cookies-Datei im UserData-Verzeichnis abgespeichert. Ich hab auch schon den Chromium Code geladen, finde aber die entsprechende Stelle im Code nicht. Ist auch ziemlich umfangreich...

Hi,

braucht man alles nicht:

gewünscht ist
CppTime * mul + add = DelphiTime

1 Tag hat 864000000000 ticks (100ns), also

(CppTime + 864000000000) * mul + add = DelphiTime + 1

-> das sind 2 Gleichungen mit 2 Unbekannten, daraus ergibt sich mul = 1/864000000000 und add = 25007,330053825741741

finally: DT := CT / 864000000000 + 25007,330053825741741

natürlich mit int64 und extended zu rechnen.

Gruss Reinhard

[Reinhard Kern]

Zitat:

Zitat von Reinhard Kern

finally: DT := CT / 864000000000 + 25007,330053825741741

Hallo,

hat mich nicht befriedigt - ist zwar mathematisch schon das, was du wolltest, aber eigentlich sollte add ganzzahlig sein (Tage). Eine genauere Zahlenanalyse ergab, dass Webtime ab 1601 richtig ist und dass UTC rauskommt - du hast aber in deinen Zahlenpaaren zuerst MEZ und dann MESZ angegeben. Korrekt logisch abgeleitet muss es daher heissen:

DelphiTime := WebTime / 86400000000 {µs} - 109205 {Tage 1601 - 1899} + (MEZ - UTC | MESZ - UTC) {für GER}

Gruss Reinhard