开发学院WEB开发ASP ASP显示日期格式的几个函数 阅读

ASP显示日期格式的几个函数

 2009-05-07 10:39:36 来源:WEB开发网   
核心提示:<%'月份转换到中文Function MonthToCH(TheMonth)Dim mmmm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",")If IsNumeric(TheMonth) Then MonthToCH = mm(TheM

<%
'月份转换到中文
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
%>

Tags:ASP 显示 日期

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接