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;