Source position: dateutil.inc line 560
public function TDateTimeHelper.WithinPastWeeks(
const AThen: TDateTime;
const AWeeks: Integer
):Boolean;