TDateTimeHelper.WithinPastYears function

function WithinPastYears(const AThen: TDateTime; const AYears: Integer)
: Boolean

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