99&

ASP中如何在網頁上輸出中文日期

admin

2011年12月13日 15:45 本文熱度 3369

'======================================================
' 函數 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協同辦公管理系統。

<li id="ewkks"></li>

国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

ASP中如何在網頁上輸出中文日期