获得ASP的中文日期字符串
2008-02-23 09:27:44来源:互联网 阅读 ()
我们通常需要在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()) %> |
|
|
|
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有