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

  • Автор темы Sh00r00p
  • Дата начала
S

Sh00r00p

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

Tanya

#2
Можно воспользваться функцией 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)