• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

获得ASP的中文日期字符串_asp

asp 搞代码 3年前 (2018-08-10) 85次浏览 已收录 0个评论

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

[[ 函数实现 ]]
[%
‘======================================================
‘ 函数 Date2Chinese
‘ 功能:获得中文日期的字符串(如一九九八年五月十二日)
‘ 参数: iDate 要转化的日期
‘ 返回: 中文日期的字符串
‘======================================================

http://www.gaodaima.com/66136.html获得ASP的中文日期字符串_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
%]

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

欢迎大家阅读《获得ASP的中文日期字符串_asp,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址