<%

'******************************

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

%>