한 달의 날자 수 구하기
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