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) + "日"
            Els