ASP中如何在网页上输出中文日期

admin

2011年12月13日 15:45 本文热度 2770

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

该文章在 2011/12/13 15:45:49 编辑过

关键字查询

中文

网页

日期

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。