Source position: dateutil.inc line 266
function WithinPastMonths(
const ANow: TDateTime;
const AThen: TDateTime;
const AMonths: Integer
):Boolean;