把日期大写

时　间:2011-11-23 10:36:39
作　者:lyxiong   ID：2790  城市：佛山
摘　要:把日期大写
正　文:

第 22 页 共 202 页
 
                   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第 21 页 共 202 页
 
      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 + _ Function Date2Chinese(iDate)
      Dim num(10)

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店