Сколько дней в месяце?

[Sh00r00p]

Есть ли функция которая определяет последний день месяца или сколько дней в месяце?

 

[Tanya]

Можно воспользваться функцией DateSerial и Day

Debug.Print Day(DateSerial(2007, 2, 0)) ' распечатает 31 - количество дней в январе
Debug.Print Day(DateSerial(2007, 3, 0)) ' распечатает 28 - количество дней в феврале 2007
Debug.Print Day(DateSerial(2008, 3, 0)) ' распечатает 29 - количество дней в феврале 2008

и т.д.

DateSerial(Y, M, D) - функция, которая определяет дату по указанным году (Y), месяцу (M) и дню (D)
Day(D) - функция, которая возвращает день указанной даты (D)