TDateTimeHelper.WithinPastDays function

function WithinPastDays(const AThen: TDateTime; const ADays: Integer)
: Boolean

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.