FIND THE NO OF DAY IN A PARTICULAR MONTH OF A PARTICULAR YEAR

Dim iNumDays As Integer
            iNumDays =Date.DaysInMonth(YEAR, MONTH)