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

ASP下格式化時間和日期的函數

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

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

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

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

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

%>

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

附件下載:
time.rar 891字節

文章整理: 世紀云圖  http://www.543ae.com/

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

版權申明:本站文章部份來自網絡,如有侵權,請聯系我們,我們收到后立即刪除,謝謝!

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

微信
網站建設
軟件業務
網絡營銷
400電話
主站蜘蛛池模板: 欧美成人在线视频| 成人无码嫩草影院| 成人午夜又粗又硬有大| 成人在线播放av| 成人av免费电影| 久艾草国产成人综合在线视频| www成人在线观看| 日韩av无码成人精品国产| 国产成人精品视频网站| 久久久久99精品成人片欧美| 成人免费男女视频网站慢动作| 四虎成人精品国产永久免费无码| 成人自拍视频网| 国产成人一区二区在线不卡| 成人污视频网站| 亚洲va在线va天堂成人| 午夜视频免费成人| 国外成人免费高清激情视频| 欧洲成人午夜精品无码区久久 | 亚洲精品午夜国产va久久成人 | 欧美国产成人精品一区二区三区| 午夜成人理论福利片| 国产精品成人免费视频电影| 欧美成人在线影院| 色噜噜狠狠色综合成人网| 国产成人久久精品| 国产成人精品一区二区三区| 成人片黄网站色大片免费| 美国特级成人毛片| 欧美成人在线观看| 欧美成人精品高清在线观看| 亚洲国产成人久久综合一区| 国产成人18黄网站麻豆| 国产亚洲精品成人久久网站| 国产成人av在线影院| 国产成人无码AⅤ片在线观看 | 欧美成人猛男性色生活| 欧美色成人tv在线播放| 欧美成人看片一区二区三区尤物| 久久99国产精品成人欧美| 精品久久久久成人码免费动漫 |