获得ASP的中文日期字符串

2008-02-23 09:27:44来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  我们通常需要在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
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP智能搜索的实现

下一篇:IE的模式对话框设计