ASP中时间格式转换

ASP中now()函数可以获取系统当前时间,这个时间的格式形如"2008-5-19 10:55:26".可是,有时我们更习惯使用"2008年5月19日10时55分26秒"这样的时间格式.那么,我们应该如何才能得到这样的要求呢?

思路一:使用replace()替换函数,具体代码如下:

<%
function chgtime(str)
if str <> "" then
str = replace(str,"-","年",1,1)'将第一个"-"转换成"年"
str = replace(str,"-","月",1,1)'将第二个"-"转换成"月"
str = replace(str," ","日")'将空格" "转换成"日"
str = replace(str,":","时",1,1)'将冒号":"转换成"时"
str = replace(str,":","分",1,1)'将冒号":"转换成"分"
str = str&"秒"'在最后添加"秒"
end if
chgtime=str
end function
Response.Write chgtime("2008-5-19 10:55:26")
%>

运行结果:2008年5月19日10时55分26秒

思路分析:从左至右依次进行替换,具体参照代码行后面的解释.

思路二:使用FormatDateTime()函数,具体代码如下:
<%
function chgtime1(str)
dim str1,str2
if str <> "" then
str1 = FormatDateTime(str,1)'获取日期部分,得到"2008年5月19日 星期一"
str2 = FormatDateTime(str,3)'获取获取时间部分,得到"10:55:26"
end if
chgtime1=str1&" "&str2
end function
Response.Write chgtime1("2008-5-19 10:55:26")
%>

运行结果:2008年5月19日 星期一 10:55:26

思路分析:利用不FormatDateTime()函数的不同参数获取时间的不同部分再用字符串连接符连接.

综合以上两种思路,可以得到形如"2008年5月19日 星期一 10时55分26秒"的时间格式.具体代码如下:

<%
function chgtime2(str)
dim str1,str2
if str <> "" then
str1 = FormatDateTime(str,1)'获取日期部分
str2 = FormatDateTime(str,3)'获取获取时间部分
str2 = replace(str2,":","时",1,1)'将冒号":"转换成"时"
str2 = replace(str2,":","分",1,1)'将冒号":"转换成"分"
str2 = str2&"秒"'在最后添加"秒"
end if
chgtime2=str1&" "&str2
end function
Response.Write chgtime2("2008-5-19 10:55:26")
%>

运行结果:2008年5月19日 星期一 10时55分26秒

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值