显示日期格式的几个函数

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

'月份转换到长英文
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

'月份转换到短英文
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

本文地址：http://com.8s8s.com/it/it7858.htm