<%
'******************************
'函数：FormatDate(DateAndTime,para)
'参数：DateAndTime,要格式化的日期时间；para,样式。
'作者：阿里西西
'日期：2007/7/12
'描述：将日期格式化为需要的格式
'示例：<%=FormatDate(now(),3)%>
'******************************
PublicFunctionFormatDate(DateAndTime,para)
OnErrorResumeNext
Dimy,m,d,h,mi,s,strDateTime
FormatDate=DateAndTime
IfNotIsNumeric(para)ThenExitFunction
IfNotIsDate(DateAndTime)ThenExitFunction
y=CStr(Year(DateAndTime))
m=CStr(Month(DateAndTime))
IfLen(m)=1Thenm="0"&m
d=CStr(Day(DateAndTime))
IfLen(d)=1Thend="0"&d
h=CStr(Hour(DateAndTime))
IfLen(h)=1Thenh="0"&h
mi=CStr(Minute(DateAndTime))
IfLen(mi)=1Thenmi="0"&mi
s=CStr(Second(DateAndTime))
IfLen(s)=1Thens="0"&s
SelectCasepara
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
CaseElse
strDateTime=DateAndTime
EndSelect
FormatDate=strDateTime
EndFunction
%>
【asp 将日期格式化为需要的格式】相关文章：