ASP格式化日期函数(多种可选)
'=========ASP格式化日期函数(多种可选)==================
<%
Function DateFormat(DateStr,Types) '格式化日期函数可选多种参数
Dim DateString
if IsDate(DateStr) = False then '判断输入的内容是否为日期格式,如果不是则为空
DateString = ""
end if
Select Case Types '下面是不同的参入格式化不同的日期结果,倒如:2014-04-28 或2014年4月28日等等
Case "1"
DateString = Year(DateStr)&"-"&Month(DateStr)&"-"&Day(DateStr)
Case "2"
DateString = Year(DateStr)&"."&Month(DateStr)&"."&Day(DateStr)
Case "3"
DateString = Year(DateStr)&"/"&Month(DateStr)&"/"&Day(DateStr)
Case "4"
DateString = Month(DateStr)&"/"&Day(DateStr)&"/"&Year(DateStr)
Case "5"
DateString = Day(DateStr)&"/"&Month(DateStr)&"/"&Year(DateStr)
Case "6"
DateString = Month(DateStr)&"-"&Day(DateStr)&"-"&Year(DateStr)
Case "7"
DateString = Month(DateStr)&"."&Day(DateStr)&"."&Year(DateStr)
Case "8"
DateString = Month(DateStr)&"-"&Day(DateStr)
Case "9"
DateString = Month(DateStr)&"/"&Day(DateStr)
Case "10"
DateString = Month(DateStr)&"."&Day(DateStr)
Case "11"
DateString = Month(DateStr)&"月"&Day(DateStr)&"日"
Case "12"
DateString = Day(DateStr)&"日"&Hour(DateStr)&"时"
case "13"
DateString = Day(DateStr)&"日"&Hour(DateStr)&"点"
Case "14"
DateString = Hour(DateStr)&"时"&Minute(DateStr)&"分"
Case "15"
DateString = Hour(DateStr)&":"&Minute(DateStr)
Case "16"
DateString = Year(DateStr)&"年"&Month(DateStr)&"月"&Day(DateStr)&"日"
Case Else
DateString = DateStr
End Select
DateFormat = DateString '返回日期内容
End Function
%>