<% response.write getMonthName("4")
'// 영문으로된 월이름을 반환하는 함수 Function getMonthName(getMonth)
On Error Resume Next
Dim arrayMonth arrayMonth = array("january","February","March", _ "April","May", "June", "July", _ "August","September", _ "October","November", "December" ) getMonth = Cint(getMonth)
If Err.number <> 0 Then Response.Write err.description & "<br>" & err.source & "<br>" Err.clear End If
If getMonth < 1 OR getMonth > 12 Then getMonthName = "1~12 사이의 숫자를 입력하세요." Else getMonthName = arrayMonth(Cint(getMonth)-1) End If
End Function %>
|