Plausibiltät auf einen Zeitraum von eine Jahr

[toms]

DaysBetween gibt es noch nicht in D5.

Delphi-Quellcode:

function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
  if ANow < AThen then
    Result := Trunc(AThen - ANow)
  else
    Result := Trunc(ANow - AThen);
end;