海南(nán)世紀雲圖網絡科技有限公司
咨詢熱線:400-822-8458 客戶服務:0898-32183600

ASP下(xià)格式化時間和日期的函數

發表于:2011-05-16 00:00:00來源:人氣:2798

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

function FormatDate(LwpCmsDate,NumFormat)
dim YearStr,MonthStr,DayStr,HourStr,MinuteStr '變量含義分(fēn)别爲年字符串,月字符串,日字符串,時字符串,分(fēn)字符串

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&"時"&MinuteStr&"分(fēn)"
case 5
FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日"
case 6
FormatDate=HourStr&"時"&MinuteStr&"分(fēn)"
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() 獲取當前日期和時間
'date()獲取當前年月日
'time()獲取當前時分(fēn)秒
'year(date)獲取給定日期的年份
'month(date)取得給定日期的月份
'day(date)取得給定日期是幾号
'hour(time)取得給定時間是第幾小(xiǎo)時
'minut(time)取得給定時間是第幾分(fēn)鍾
'second(time)取得給定時間是第幾秒
'weekday(date)取得給定日期是星期幾,1表示星期日,2表示星期一(yī)...
'formatdatetime(date,vbshortdate)轉化爲短日期格式.
'formatdatetime(date,vblongdate)轉化爲長日期格式.
'formatdatetime(time,vbshorttime)轉化爲短時間格式
'formatdatetime(time,vblongtime)轉化爲長時間格式
'datediff("var","var1","var2")計算兩個日期或時間間隔

'var表示時間和日期的代碼,如下(xià):
'年 yyyy
'月 m
'日 d
'時 h
'分(fēn) n
'秒 s
'周 ww
'var1第一(yī)個日期或時間
'var2第二個日期或時間

%>

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

附件下(xià)載:
time.rar 891字節

文章整理: 世紀雲圖  https://www.yuntop.cc/

以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!

版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)們,我(wǒ)們收到後立即删除,謝謝!

特别注意:本站部份轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系,版權歸原作者所有。

微信
網站建設
軟件業務
網絡營銷
400電話(huà)