Datum berechnen

[s.h.a.r.k]

Hab keines da zum testen Von daher kann ich dir nur raten mal in die Hilfe zu schauen.

Ansonsten programmierst es halt selbst schnell -- 1.0 in TDateTime entspricht einem Tag:

Delphi-Quellcode:

function DaysBetween(const AFrom, ATo: TDateTime): Integer;
begin
  Result := Trunc(AFrom - ATo);
end;