MonthsPassed

function MonthsPassed(aFrom, anUntil: TDateTime): Integer;
begin
Result := 12 * (YearFromDate(anUntil) -
YearFromDate(aFrom)) +
MonthFromDate(anUntil) -
MonthFromDate(aFrom);
end;