asp 将日期格式化为需要的格式

'函数：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 %>

您可能感兴趣的文章:

• JS 日期验证正则附asp日期格式化函数
• Asp 日期格式化问题
• asp的一个日期格式化函数
• ASP常用日期格式化函数 FormatDate()