西安做网站ASP获得中文日期字符串

14222012-04-13

    <%
    '======================================================
    ' 函数 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())
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1