Есть в Delphi такой замечательный модуль DateUtils, и не менее замечательная функция MonthsBetween. Функция эта возвращает количество месяцев в промежутке от одной даты до второй.
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
begin
Result := Trunc(MonthSpan(ANow, AThen));
end;
Работает она, как нетрудно заметить, путём обрасывания
(
Read more... )