TDateTimeHelper.WithinPastWeeks function

function WithinPastWeeks(const AThen: TDateTime; const AWeeks: Integer)
: Boolean

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