精美而实用的网站，关注web编程技术、网站运营、SEO推广，让您轻松愉快的学习

ASP获得ASP的中文日期字符串，也就是把2016.1.29变成“二〇一六年一月二十九日”，有时候我们需要这种类型的日期格式，通过本函数很方便就实现了转换操作。

ASP的中文日期转换函数代码

<%
Function Date2Chinese(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)
Date2Chinese = 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
　 　 　 　 Date2Chinese = Date2Chinese + "十" + "月"
　 　 Else
　 　 　 　 Date2Chinese = Date2Chinese + "十" + num(iMonth Mod 10) + "月"
　 　 End If
Else
　 　 Date2Chinese = Date2Chinese + num(iMonth Mod 10) + "月"
End If
If iDay >= 10 Then
　 　 If iDay = 10 Then
　 　 　 　 Date2Chinese = Date2Chinese +"十" + "日"
　 　 ElseIf iDay = 20 Or iDay = 30 Then
　 　 　 　 Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + "日"
　 　 ElseIf iDay > 20 Then
　 　 　 　 Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" +num(iDay Mod 10) + "日"
　 　 Else
 　 　 　 Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"
　 　 End If
Else
　 　 Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"
End If
End Function
%>

使用：可以这样：<%=Date2Chinese(now())%>显示当前时间为中文格式。

Tags：ASP 日期 函数