Datum dekodieren?

[Darko]

Ich bin gerade dabei, Daten aus einer Datenbank auszulesen. Dort finde ich ich Datumswerte, die ich irgendwie dekodieren muss. Allerdings weiß ich nicht wie. Ein Beispiel: 39723,32144458
Hat jemand eine Idee, wie ich da an das Originaldatum komme?

[DeddyH]

Was ist das für ein Datentyp und wie wird er ausgelesen?

[Darko]

Der Datentyp des Feldes ist Double mit einer Größe von 14.
Ausgelesen wird die Datenbank über TQuery, da es sich um eine dBase handelt.

[DeddyH]

Es scheint sich um TDateTime zu handeln (ist ja intern auch nur double). Du könntest also mal mit DateTimeToStr auslesen, ob das so passt.

[nahpets]

Hallo,

Dein Freund heißt DateTimeToStr, demnach ist 39723,32144458 = 02.10.2008 07:42:52.
Das Datum wird bei Delphi als Gleitkommewert gespeichert, vor dem Komma sind die Tage seit dem 30.12.1899 und hinter dem Komma Stunden, Minuten, Sekunden des entsprechenden Tages.

Schau mal in der Delphihilfe bei TDateTime nach.

[Darko]

Danke schonmal für die tollen Tipps!
Problem hab ich allerdings noch eins: Wenn ich den Wert mit DateTimeToStr umwandeln möchte, erhalte ich die Meldung, dass dies kein gültiger Datumswert ist!
Als was muss ich das Auslesen?


DateTimeToStr(Qr1.FieldByName('upddate').As???

[nahpets]

Zitat von Darko:

Danke schonmal für die tollen Tipps!
Problem hab ich allerdings noch eins: Wenn ich den Wert mit DateTimeToStr umwandeln möchte, erhalte ich die Meldung, dass dies kein gültiger Datumswert ist!
Als was muss ich das Auslesen?


DateTimeToStr(Qr1.FieldByName('upddate').As???

AsFloat müsste das sein, ist ja ein Gleitkommawert.

[DeddyH]

Versuch es doch gleich AsDateTime.

[Darko]

Zitat von nahpets:

Zitat von Darko:

Danke schonmal für die tollen Tipps!
Problem hab ich allerdings noch eins: Wenn ich den Wert mit DateTimeToStr umwandeln möchte, erhalte ich die Meldung, dass dies kein gültiger Datumswert ist!
Als was muss ich das Auslesen?


DateTimeToStr(Qr1.FieldByName('upddate').As???

AsFloat müsste das sein, ist ja ein Gleitkommawert.

Das wars!
Wunderbarsten Dank!