Display count of months in year which has 31 days in Message Box

[rajkumar]

Hi experts need help in showing the count of months that has 31 days in msgbox in vba.



01-Jan-20


01-Feb-20


01-Mar-20


01-Apr-20


01-May-20


01-Jun-20


01-Jul-20


01-Aug-20


01-Sep-20


01-Oct-20


01-Nov-20


01-Dec-20



Please help with a code

Raj

[Paul_Hossler]

Option Explicit


Sub Days31()
Dim i As Long, n As Long

For i = 1 To 12
If Month(DateSerial(Year(Now), i, 31)) = i Then
n = n + 1
End If
Next i


MsgBox n
End Sub

[snb]

Sub M_snb()
MsgBox [sum(N(day(date(2020,row(2:13),0))=31))]
End Sub

[rajkumar]

Thanks superb snb &Paul
:clap: