海南世纪云图网络科技有限公司
咨询热线:400-822-8458 技术支持:0898-66754910 客户服务:0898-32183600

ASP下格式化时间和日期的函数

发表于:2011-05-16 00:00:00来源:人气:2122

<%
'该函数作用:按指定参数格式化显示时间。
'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字节

文章整理: 世纪云图  https://www.yuntop.cc/

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

版权申明:本站文章部份来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站部份转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。

微信
网站建设
软件业务
网络营销
400电话