Определить количество дней в текущем месяце

Option Explicit
'
'    © FelixMacintosh
'
Function Dney$(Optional SegMes)
    Const c = "январе феврале марте апреле мае июне июле августе сентябре октябре ноябре декабре"
    Dim v1, dn&
    'По умолчанию сегодняшняя дата
    While Not IsNumeric(SegMes): SegMes = InputBox("Введите месяц от 1 до 12", , Month(Date)): Wend
    v1 = DateSerial(Year(Date), SegMes - 1, Day(Date))
    Dney = 0
    While DatePart("d", v1) <> 1: v1 = v1 + 1: Wend
    v1 = v1 + 1
    While DatePart("d", v1) <> 1: v1 = v1 + 1: Dney = Dney + 1: Wend
    Dney = Dney + 1
    Dney = "в " & Split(c)(SegMes - 1) & " " & Dney & " Дней" & vbCrLf & _
    "Выйти ?"
End Function
 
Private Sub Form_Unload(Cancel As Integer)
    Cancel = MsgBox(Dney, vbYesNo) = vbNo
End Sub

Public Function CountOfDays(ByVal year As Integer, month As Integer) As Integer
    CountOfDays = DateDiff("d", DateSerial(year, month, 1), DateSerial(year, IIf(month = 12, 0, month) + 1, 1), vbMonday, vbUseSystem)
End Function

CountOfDays = DateDiff("d", DateSerial(year, month, 1), DateSerial(year, month + 1, 1))

CountOfDays = DateSerial(yr, mon + 1, 1) - DateSerial(yr, mon, 1)

CountOfDays = Day(DateSerial(yr, mon + 1, 0))