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