Функция определения количества дней в месяце

Аргументы: date - содержит год и месяц
Назначение: Определяет количество дней в месяце
Возвращает: Количество дней и в случае если функции была передана не дата то Null

Function DaysInMonth(date As Variant) As Variant
If VarType(D) <> 7 Then
    DaysInMonth = Null
Else
    Select Case Month(D)
      Case 2
        If  LeapYear(Year(D)) Then
          DaysInMonth = 29
        Else
          DaysInMonth = 28
        End If
      Case 4, 6, 9, 11
        DaysInMonth = 30
      Case 1, 3, 5, 7, 8, 10, 12
        DaysInMonth = 31
    End Select
End If
End Function