Cardinal in TDateTime

[duff]

Hallo,

ich habe eine Cardinal Zahl die so

Code:

3369061800 // sollte 05.10.2006 19:30 sein

aussieht!

Jetzt will ich diese Zahl in TDateTime umwandeln nur schaffe ich das nicht. Einfach hinter die fünfte Stelle ein Komma einfügen ist nicht so schick oder???

Gruß

[3_of_8]

Delphi-Quellcode:

var dt: TDateTime;
begin
  dt:=UnixToDateTime(3369061800);
end;

EDIT: Allerdings wäre der richtige Wert dann 1160076600.

[duff]

Wenn ich mich nicht täusche ist UnixToDateTime doch von 01.01.1970 00:00 an gerechnet!! Diese mir vorliegende Zeit ist aber vom 1.1.1900 00:00 an gerechnet!!

[3_of_8]

Und in welcher Einheit?

[duff]

Wenn ich das wüsste... ich bekomme diesen Wert aus einer Binären Datei die nicht wirklich dokumentiert ist!!

Was ich rausfinden konnte ist dieses

Zitat:

04-07 : 04 Byte / longword / Uhrzeit in Sekunden seit 01.01.1900 00:00

[duff]

habs...

Delphi-Quellcode:

function SekundenToDateTime (sec: Int64): TDateTime;
var
  DTime : TDateTime;
begin
  DTime := sec / (60 * 60 * 24);
  Result := DTime;
end;

[stz]

Zitat von duff:

habs...

Delphi-Quellcode:

function SekundenToDateTime (sec: Int64): TDateTime;
var
  DTime : TDateTime;
begin
  DTime := sec / (60 * 60 * 24);
  Result := DTime;
end;

eine Variable zu viel
mein Vorschlag:

Delphi-Quellcode:

function SekundenToDateTime (sec: Int64): TDateTime;
begin
  Result := sec / (60 * 60 * 24);
end;

Gruß
Malte

[marabu]

Besser so:

Delphi-Quellcode:

function SekundenToDateTime (sec: Int64): TDateTime;
begin
  Result := 2.0 + sec / (60 * 60 * 24);
end;

Delphi verwendet den 30.12.1899 als Referenzdatum, nicht den 1.1.1900.

Gute Nacht

marabu

[duff]

Danke und GN8