<%
'月を中国語に変換します
関数 MonthToCH(TheMonth)
薄mm
mm=split("1、2、3、4、5、6、7、8、9、10、11、12",",")
IsNumeric(TheMonth) の場合
MonthToCH = mm(TheMonth-1) & "月"
それ以外
MonthToCH = "月"
終了の場合
終了機能
'月を長い英語に変換します
関数 MonthToLongEN(TheMonth)
薄mm
mm=split("1月、2月、3月、4月、5月、6月、7月、8月、9月、10月、11月、12月",",")
IsNumeric(TheMonth) の場合
MonthToLongEN = mm(TheMonth-1)
それ以外
MonthToLongEN = " "
終了の場合
終了機能
'月を短い英語に変換します
関数 MonthToShortEN(TheMonth)
薄mm
mm=split("1月、2月、3月、4月、5月、6月、7月、8月、9月、10月、11月、12月",",")
IsNumeric(TheMonth) の場合
MonthToShortEN = mm(TheMonth-1)
それ以外
MonthToShortEN = " "
終了の場合
終了機能
%>