Source position: dateutil.inc line 258
function WithinPastWeeks(
const ANow: TDateTime;
const AThen: TDateTime;
const AWeeks: Integer
):Boolean;