int64 zu tDateTime?

[Weazy]

Wie könnte ich eine int64 zu einem tDateTime typ casten? Habe leider niergends etwas passendes gefunden....

[DeddyH]

Ungetestet: erst zu FileTime casten, dann zu SystemTime konvertieren und dann zu DateTime.

[sirius]

Was ist denn das für ein Zeitformat?

Mein spatz im Kopf sagt mir etwas von "UnixToDateTime"

[Weazy]

wie kann ich denn ein int64 zu tFileTime Casten?

[DeddyH]

Beides sind doch Records aus 2 DWORD, wenn ich richtig lesen kann.

[Muetze1]

... aber TDateTime ist doch ein Double, oder?

[peschai]

Hallo
Beide haben 8 Bytes (TDateTime ist ein Double)
Folgende Lösungsvariante mithilfe von "ABSOLUTE". Aber Achtung kein sauberer Programmierstil ...
Desweiteren solltest du mal überprüfen, ob du wirklich so etwas benötigst ...

Delphi-Quellcode:

procedure TForm1.Test1;
var
  i1:int64;
  d2:tDateTime;
  i3:int64 absolute d2;
begin
  // Bei folgendem schimpft der compiler
  i1 := Int64(d2);
  d2 := TDateTime(i1);
  // das folgende geht ...
  i3 := 1;
  d2 := 0.0;
  if (i3=0) then
    begin
      // beachte das "absolute"
      // damit ist i3 automatisch auch Null, da die 8 Bytes von d2 auch mit dem Namen i3 ansprechbar sind ...
      // Sauberer Programmierstil ist das aber nicht ...
    end;
end;

[Weazy]

danke, es funktioniert jetzt!! :-D