Private Function GetDaysOfMonth(ByVal sD As Date) As Long
   Dim dNextM As Date
 
   dNextM = DateAdd("m", 1, sD)
   GetDaysOfMonth = DateDiff("d", _
                    DateSerial(Year(sD), Month(sD), 1), _
                    DateSerial(Year(dNextM), Month(dNextM), 1))
 
End Function