Индийский код

[adrian_shephard]

Есть в Delphi такой замечательный модуль DateUtils, и не менее замечательная функция MonthsBetween. Функция эта возвращает количество месяцев в промежутке от одной даты до второй.

function MonthsBetween(const ANow, AThen: TDateTime): Integer;
begin
Result := Trunc(MonthSpan(ANow, AThen));
end;
Работает она, как нетрудно заметить, путём обрасывания

Comments

[trimirys]

может он хочет сказать 11.9999 :-)

[adrian_shephard]

Он то хочет, но говорит только 11. Стало быть, в году у нас обычно 11 месяцев, 12й появляется редко.