马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;函数|日期================================================
函数名:FormatDate
作用:格局化日期
参数:DateAndTime----原日期和工夫
para----日期格局
前往值:格局化后的日期
================================================
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还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |