在ASP中按指定参数格式化显示时间的函数。

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

<%

'该函数作用:按指定参数格式化显示时间。

'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(shijian,numformat)

dim ystr,mstr,dstr,hstr,nstr '变量含义分别为年字符串,月字符串,日字符串,时字符串,分字符串

if isnull(shijian) then

numformat=0

else

ystr=DatePart("yyyy",shijian)

if DatePart("m",shijian)>9 then

mstr=DatePart("m",shijian)

else

mstr="0"&DatePart("m",shijian)

end if

if DatePart("d",shijian)>9 then

dstr=DatePart("d",shijian)

else

dstr="0"&DatePart("d",shijian)

end if

if DatePart("h",shijian)>9 then

hstr=DatePart("h",shijian)

else

hstr="0"&DatePart("h",shijian)

end if

if DatePart("n",shijian)>9 then

nstr=DatePart("n",shijian)

else

nstr="0"&DatePart("n",shijian)

end if

end if

select case numformat

case 0

formatdate=""

case 1

formatdate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr

case 2

formatdate=ystr&"-"&mstr&"-"&dstr

case 3

formatdate=hstr&":"&nstr

case 4

formatdate=ystr&"年"&mstr&"月"&dstr&"日 "&hstr&"时"&nstr&"分"

case 5

formatdate=ystr&"年"&mstr&"月"&dstr&"日"

case 6

formatdate=hstr&"时"&nstr&"分"

case 7

formatdate=ystr&"年"&mstr&"月"&dstr&"日 "&WeekdayName(Weekday(shijian))

case 8

formatdate=right(ystr,2)&mstr&dstr

case 9

formatdate=mstr&dstr

end select

end function

%>

现在用ASP.NET一切都简单多了,还是写出来纪念一下原来用ASP的岁月。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航