Cardinal in TDateTime

[duff]

habs...

Delphi-Quellcode:

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