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

Тема в разделе "Visual Basic", создана пользователем Sh00r00p, 7 ноя 2007.

  1. Sh00r00p

    Sh00r00p Гость

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

    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)
     
Загрузка...

Поделиться этой страницей