Cardinal in TDateTime

[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