Библиотеки: DaysInMonth

 

DaysInMonth:

Возвращает количество дней в месяце для времени t с учётом високосных годов

Author: Mikhail

 

Пардон. Небольшая ошибочка в коде. Исправьте кто скачал.

Было:

  case 2:if((MathMod(Year(),4.0) == 0) && ((MathMod(Year(),100.0) >0) || (MathMod(Year(),400.0) == 0))) n=29; else n=28;break;

Нужно:

  case 2:if((MathMod(TimeYear(t),4.0) == 0) && ((MathMod(TimeYear(t),100.0) >0) || (MathMod(TimeYear(t),400.0) == 0))) n=29; else n=28;break;
Причина обращения: