获得ASP的中文日期字符串

[内容提要]　获得ASP的中文日期字符串发布：天诚网络来源：互联网时间：2007-12-5浏览【138】次alimama_pid="mm_10525911_585237_977433";alimama_titlecolor="0000FF";alimama_descolor="0000...

作者: 优内科技来源: 优内科技驻站日期:2008/11/5 【加入收藏】【打印此页】【关闭】

获得ASP的中文日期字符串

发布：天诚网络

来源：互联网

时间：2007-12-5

浏览【138】次

我们通常需要在 WEB 页面上写上当前的日期，可能使用客户端 script ，或者使用 ASP 。使用 ASP 的一个特点是，它产生的效果看起来是  静态的页面，但实际上它是动态生成的。如果  你希望    用ASP 显示一个中文的日期，则需要转化  一下。下面  是用来  转化的函数及其  调用实例。

[[ 函数实现 ]]
[%
'======================================================
' 函数 Date2Chinese
' 功能：获得中文日期的字符串（如一九九八年五月十二日）
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
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
%]

[[ 调用举例 ]]
[%
response.write date2Chinese(date())
%]

收藏到网摘：