<%'月份转换到中文Function MonthToCH(TheMonth)Dim mmmm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",")If IsNumeric(TheMonth) Then MonthToCH = mm(TheMonth-1) & "月份"Else MonthToCH = " 月份"End IfEnd Function

'月份转换到长英文Function MonthToLongEN(TheMonth)Dim mmmm=split("January,February,March,April,May,June,July,August,September,October,November,December",",")If IsNumeric(TheMonth) Then MonthToLongEN = mm(TheMonth-1)Else MonthToLongEN = " "End IfEnd Function

'月份转换到短英文Function MonthToShortEN(TheMonth)Dim mmmm=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")If IsNumeric(TheMonth) Then MonthToShortEN = mm(TheMonth-1)Else MonthToShortEN = " "End IfEnd Function %>

本文源自：翔宇亭IT乐园