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秒