<%
'該函數(shù)作用：按指定參數(shù)格式化顯示時(shí)間。
'NumFormat=1:將時(shí)間轉(zhuǎn)化為yyyy-mm-dd hh:nn格式。
'NumFormat=2:將時(shí)間轉(zhuǎn)化為yyyy-mm-dd格式。
'NumFormat=3:將時(shí)間轉(zhuǎn)化為hh:nn格式。
'NumFormat=4:將時(shí)間轉(zhuǎn)化為yyyy年mm月dd日 hh時(shí)nn分格式。
'NumFormat=5:將時(shí)間轉(zhuǎn)化為yyyy年mm月dd日格式。
'NumFormat=6:將時(shí)間轉(zhuǎn)化為hh時(shí)nn分格式。
'NumFormat=7:將時(shí)間轉(zhuǎn)化為yyyy年mm月dd日 星期×格式。
'NumFormat=8:將時(shí)間轉(zhuǎn)化為yymmdd格式。
'NumFormat=9:將時(shí)間轉(zhuǎn)化為mmdd格式。

function FormatDate(LwpCmsDate,NumFormat)
dim YearStr,MonthStr,DayStr,HourStr,MinuteStr '變量含義分別為年字符串，月字符串，日字符串，時(shí)字符串，分字符串

if isnull(LwpCmsDate) then
NumFormat=0
else
YearStr=DatePart("yyyy",LwpCmsDate)

if DatePart("m",LwpCmsDate)>9 then
MonthStr=DatePart("m",LwpCmsDate)
else
MonthStr="0"&DatePart("m",LwpCmsDate)
end if

if DatePart("d",LwpCmsDate)>9 then
DayStr=DatePart("d",LwpCmsDate)
else
DayStr="0"&DatePart("d",LwpCmsDate)
end if

if DatePart("h",LwpCmsDate)>9 then
HourStr=DatePart("h",LwpCmsDate)
else
HourStr="0"&DatePart("h",LwpCmsDate)
end if

if DatePart("n",LwpCmsDate)>9 then
MinuteStr=DatePart("n",LwpCmsDate)
else
MinuteStr="0"&DatePart("n",LwpCmsDate)
end if
end if
select case NumFormat
case 0
FormatDate=""
case 1
FormatDate=YearStr&"-"&MonthStr&"-"&DayStr&" "&HourStr&":"&MinuteStr
case 2
FormatDate=YearStr&"-"&MonthStr&"-"&DayStr
case 3
FormatDate=HourStr&":"&MinuteStr
case 4
FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日 "&HourStr&"時(shí)"&MinuteStr&"分"
case 5
FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日"
case 6
FormatDate=HourStr&"時(shí)"&MinuteStr&"分"
case 7
FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日 "&WeekdayName(Weekday(LwpCmsDate))
case 8
FormatDate=right(YearStr,2)&MonthStr&DayStr
case 9
FormatDate=MonthStr&"月"&DayStr&"日"
case 10
FormatDate=YearStr&"."&MonthStr&"."&DayStr
end select
end function

'now() 獲取當(dāng)前日期和時(shí)間
'date()獲取當(dāng)前年月日
'time()獲取當(dāng)前時(shí)分秒
'year(date)獲取給定日期的年份
'month(date)取得給定日期的月份
'day(date)取得給定日期是幾號(hào)
'hour(time)取得給定時(shí)間是第幾小時(shí)
'minut(time)取得給定時(shí)間是第幾分鐘
'second(time)取得給定時(shí)間是第幾秒
'weekday(date)取得給定日期是星期幾,1表示星期日,2表示星期一...
'formatdatetime(date,vbshortdate)轉(zhuǎn)化為短日期格式.
'formatdatetime(date,vblongdate)轉(zhuǎn)化為長(zhǎng)日期格式.
'formatdatetime(time,vbshorttime)轉(zhuǎn)化為短時(shí)間格式
'formatdatetime(time,vblongtime)轉(zhuǎn)化為長(zhǎng)時(shí)間格式
'datediff("var","var1","var2")計(jì)算兩個(gè)日期或時(shí)間間隔

'var表示時(shí)間和日期的代碼,如下:
'年 yyyy
'月 m
'日 d
'時(shí) h
'分 n
'秒 s
'周 ww
'var1第一個(gè)日期或時(shí)間
'var2第二個(gè)日期或時(shí)間

%>

<%= FormatDate(now(),10) %>