Datumswert umwandeln

[Grolle]

Hallo,

ich bekomme aus der Datenbank Werte in diesem (Double)Format: 395890000.
Diesen will ich jetzt in einen Datumsstring umwandeln dd.mm.yyyy.
Gibt es dafür eine Funktion?

Viele Grüße

[Sherlock]

Wenn die DB ein DateTime-Feld bietet, dann kannst Du das .AsDateTime in Delphi aus der Query auslesen. Dann noch mit DateTimeToString umwandeln und fertig.

Da brauchst Du nicht viel zu tun.

Sherlock

[Grolle]

Hi,

ist ein Integer-Feld. Nachträglich ändern ist im Moment nicht möglich.

Viele Grüße ...

[Sherlock]

Dann ist es das beliebte Posix-Datumsformat. POSIX zählt die seit dem 1. Januar 1970 abgelaufene Zeit in Sekunden. Muss man halt rechnen Ich kann sowas nicht).
Das wird übrigens im Jahr 2038 zu einem mittelschweren Problem werden ;)

Sherlock

[bluesbear]

Sowas in der Art?

Delphi-Quellcode:

MeinTDateTime := EncodeDate(1970, 1, 1) + (MeinPosixDatumUhrzeitInteger / 24 / 60 / 60)

[Sherlock]

Das wäre wohl das richtige, nur kommt mir das grad nicht wie ein Posix vor, denn die vielen Nullen am Ende des Beispiels irritieren mich (395890000).

Werden da vielleicht Delphi TDateTimes mit 10.000 multipliziert und in einem Integer abgelegt?

Edit: Scheint so, denn die Zahl (ohne Nullen) ergibt den 21.05.2008 als Delphi-Datum.

Sherlock

[Grolle]

So ist es:

Delphi-Quellcode:

      tmpDate := (ResultRows.List[iLoop].Int['letzter_zugriff'] /10000);
      ResultGrid.Rows[TmpRow].Add(DateToStr(tmpdate));

Jetzt klappt das!