网络编程
位置:首页>> 网络编程>> Asp编程>> 显示日期格式的几个函数

显示日期格式的几个函数

作者:亮亮 来源:亮亮blog 发布时间:2008-09-03 13:20:00 

标签:日期,函数,时间

月份转换到中文

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 
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com