<%
'Convert month to Chinese
Function MonthToCH(TheMonth)
Dim mm
mm=split("One, two, three, four, five, six, seven, eight, nine, ten, eleven, twelve",",")
If IsNumeric(TheMonth) Then
MonthToCH = mm(TheMonth-1) & "month"
Else
MonthToCH = "month"
End If
End Function
'Convert month to long English
Function MonthToLongEN(TheMonth)
Dim mm
mm=split("January,February,March,April,May,June,July,August,September,October,November,December",",")
If IsNumeric(TheMonth) Then
MonthToLongEN = mm(TheMonth-1)
Else
MonthToLongEN = " "
End If
End Function
'Convert month to short English
Function MonthToShortEN(TheMonth)
Dim mm
mm=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
If IsNumeric(TheMonth) Then
MonthToShortEN = mm(TheMonth-1)
Else
MonthToShortEN = " "
End If
End Function
%>