TDateTimeHelper.WithinWeeks function

function WithinWeeks(const aDateTime: TDateTime; const aWeeks: Integer)
: Boolean

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