한 달의 날자 수 구하기

Function getAmountMonthDays(iMonth, iYear)
 result = 0
    select case iMonth
    case "1" ,"3", "5", "7", "8", "10", "12"
        result = 31
    case "4", "6", "9", "11"
        result = 30
    case "2"
        if ((iYear mod 4) = 0 and (iYear mod 100) <> 0) or (iYear mod 400) = 0 then
            result = 29
        else
            result = 28
        end if
    end select
    getAmountMonthDays = result
End Function