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