当前位置：网站首页 >> 建站知识 >> 网站技术 >>


在ASP网页编程中自编函数实现将任意日期转换成中文来表示的日期

来源：郑州凯讯网站    发布人：郑州凯讯公司    发布日期：2014-05-03

我们在郑州网站建设中，可能会用到将日期形式的变量转换成中文表达的日期字符串的功能，比如在需要显示“今天”的中文日期的地方，那么我们就无法以固定的汉字来表达，而应该用一个函数来转化“今天”的变量，因为到了明天，那么明天就是“今天”了。所以，这样的函数还是有其必要的用处的。在这里，笔者编写参考某些关于日期和时间的函数，写了一个将任意日期的参数转换成中文表示的日期的函数，使用ASP编程语言来写的。调用该函数，可以实现日期转换的功能。下面将函数的代码列出来显示在这面，另附有函数的调用方式，可供参考。

以下是函数的实现代码
<%
'--------------------------------------------------------------------------------------
'函数：DateToChinese
'功能：把日期类型的变量转化，获得中文日期的字符串（如二０一四年五月三日）
'参数：iDate要转化的日期
'返回：以中文形式表达的日期字符串
'--------------------------------------------------------------------------------------
Function DateToChinese(iDate)
dim num(10)
dim iYear
dim iMonth
dim iDay

num(0)="０"
num(1)="一"
num(2)="二"
num(3)="三"
num(4)="四"
num(5)="五"
num(6)="六"
num(7)="七"
num(8)="八"
num(9)="九"

iYear=Year(iDate)
iMonth=Month(iDate)
iDay=Day(iDate)

DateToChinese=num(iYear/1000)+num((iYear/100) mod 10)+num((iYear/10) mod 10)+num(iYear mod 10)+"年"

if iMonth>=10 then
if iMonth=10 then
DateToChinese=DateToChinese+"十"+"月"
else
DateToChinese=DateToChinese+"十"+num(iMonth mod 10)+"月"
end if
else
DateToChinese=DateToChinese+num(iMonth mod 10)+"月"
end if

if iDay>=10 then
if iDay=10 then
DateToChinese=DateToChinese+"十"+"日"
elseif iDay=20 Or iDay=30 then
DateToChinese=DateToChinese+num(iDay/10)+"十"+"日"
elseif iDay>20 then
DateToChinese=DateToChinese+num(iDay/10)+"十"+num(iDay mod 10)+"日"
else
DateToChinese=DateToChinese+"十"+num(iDay mod 10)+"日"
end if
else
DateToChinese=DateToChinese+num(iDay mod 10)+"日"
end if
End Function
%>

函数调用举例：

<%
response.write DateToChinese(date())
response.Write "<br>"
response.write DateToChinese(date()-1)
response.Write "<br>"
response.write DateToChinese(date()+30)
%>

函数调用测试结果为：

二０一四年五月三日
二０一四年五月二日
二０一四年六月二日