'**************************************
    ' Name: DaysInAnyMonth
    ' Description:Return the number of days 
    '     in any month including leap years
    ' By: Joe McDonnell
    '
    ' Inputs:IntMonth .... number of month
    IntYear ..... 4 figure year or zero For current year
    '
    ' Returns:days in month
    '
    ' Assumes:A year is a leap year if:
    It is divisible by 4 but Not by 100, or
    It is divisible by 400.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6477&lngWId=4    'for details.    '**************************************
    
    function DaysInAnyMonth(intMonth, IntYear)
    if IntYear = 0 Then
    IntYear = Year(Now())
    End if
    Select Case (intMonth)
    Case 9, 4, 6, 11
    DaysInAnyMonth = 30
    Case 2
    if (IntYear Mod 4 = 0) And (IntYear Mod 100 <> 0) Or (IntYear Mod 400 = 0) Then
    DaysInAnyMonth = 29
    Else
    DaysInAnyMonth = 28
    End if
    Case Else
    DaysInAnyMonth = 31
    End Select
    End function