<% '****************************** '函数:FormatDate(DateAndTime, para) '参数:DateAndTime,要格式化的日期时间;para,样式。 '作者:阿里西西 '日期:2007/7/12 '描述:将日期格式化为需要的格式 '示例:<%=FormatDate(now(), 3)%> '****************************** Public Function FormatDate(DateAndTime, para) On Error Resume Next Dim y, m, d, h, mi, s, strDateTime FormatDate = DateAndTime If Not IsNumeric(para) Then Exit Function If Not IsDate(DateAndTime) Then Exit Function y = CStr(Year(DateAndTime)) m = CStr(Month(DateAndTime)) If Len(m) = 1 Then m = "0" & m d = CStr(Day(DateAndTime)) If Len(d) = 1 Then d = "0" & d h = CStr(Hour(DateAndTime)) If Len(h) = 1 Then h = "0" & h mi = CStr(Minute(DateAndTime)) If Len(mi) = 1 Then mi = "0" & mi s = CStr(Second(DateAndTime)) If Len(s) = 1 Then s = "0" & s Select Case para Case "1" strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s Case "2" strDateTime = y & "-" & m & "-" & d Case "3" strDateTime = y & "/" & m & "/" & d Case "4" strDateTime = y & "年" & m & "月" & d & "日" Case "5" strDateTime = m & "-" & d & " " & h & ":" & mi Case "6" strDateTime = m & "/" & d Case "7" strDateTime = m & "月" & d & "日" Case "8" strDateTime = y & "年" & m & "月" Case "9" strDateTime = y & "-" & m Case "10" strDateTime = y & "/" & m Case "11" strDateTime = right(y,2) & "-" &m & "-" & d & " " & h & ":" & mi Case "12" strDateTime = right(y,2) & "-" &m & "-" & d Case "13" strDateTime = m & "-" & d Case Else strDateTime = DateAndTime End Select FormatDate = strDateTime End Function %>
推荐阅读
一个强健 实用的asp+ajax二级联动菜单(有演示和附源程序打包下载)
一个强健 实用的ajax二级联动菜单(有演示和附源程序打包下载)
前些天在搞后台的时候要用到二级联动的菜单,到网上去找了半天也没找到满意的,不是这错就是那错,在选择的时候有时候不能返回.真是郁闷. 后来就看到>>>详细阅读
本文标题:asp 将日期格式化为需要的格式
地址:http://www.17bianji.com/kaifa2/ASP/32496.html
1/2 1