Sub findDays() Dim m As Integer, y As Integer Dim DaysInMonth As Integer m = Month(January) y = Year(2009) DaysInMonth = DateSerial(y, m + 1, 1) – DateSerial(y, m, 1) MsgBox “Days In Month…
Sub findDays() Dim m As Integer, y As Integer Dim DaysInMonth As Integer m = Month(January) y = Year(2009) DaysInMonth = DateSerial(y, m + 1, 1) – DateSerial(y, m, 1) MsgBox “Days In Month…