大写日期的函数

zhengjialon

一组返回大写日期的函数，一个同事编的，有用的可以改善一下：
Public Function Dochangedate(strDate)
strDate = Format(strDate, "yy-mm-dd")
If Mid(strDate, 8, 1) = "0" Then
  Select Case Mid(strDate, 7, 2)
   Case 10
   Dochangedate = "零一十"
   Case 20
   Dochangedate = "零二十"
   Case 30
   Dochangedate = "零三十"
  End Select
  Else
     Select Case Mid(strDate, 8, 1)
     Case 1
     variable1 = "一"
     Case 2
     variable1 = "二"
     Case 3
     variable1 = "三"
     Case 4
     variable1 = "四"
     Case 5
     variable1 = "五"
     Case 6
     variable1 = "六"
     Case 7
     variable1 = "七"
     Case 8
     variable1 = "八"
     Case 9
     variable1 = "九"
  End Select
   Select Case Mid(strDate, 7, 1)
     Case 0
     variable2 = "零"
     Case 1
     variable2 = "一十"
     Case 2
     variable2 = "二十"
     Case 3
     variable2 = "三十"
  End Select
Dochangedate = variable2 & variable1
End If
End Function

Public Function Dochangemonth(strMonth)
strMonth = Format(strMonth, "yy-mm-dd")
If Mid(strMonth, 4, 1) = "0" Then
  Select Case Mid(strMonth, 5, 1)
   Case 1
   Dochangemonth = "零一"
   Case 2
   Dochangemonth = "零二"
   Case 3
   Dochangemonth = "零三"
   Case 4
   Dochangemonth = "四"
   Case 5
   Dochangemonth = "五"
   Case 6
   Dochangemonth = "六"
   Case 7
   Dochangemonth = "七"
   Case 8
   Dochangemonth = "八"
   Case 9
   Dochangemonth = "九"
  End Select
  Else
     Select Case Mid(strMonth, 5, 1)
     Case 0
     Dochangemonth = "零一十"
     Case 1
     Dochangemonth = "一十一"
     Case 2
     Dochangemonth = "一十二"
  End Select
End If
End Function

Public Function Dochangeyear(strYear)
strYear = Format(strYear, "yy-mm-dd")
  Select Case Mid(strYear, 2, 1)
    Case 0
    variable1 = "零"
    Case 1
    variable1 = "一"
    Case 2
    variable1 = "二"
    Case 3
    variable1 = "三"
    Case 4
    variable1 = "四"
    Case 5
    variable1 = "五"
    Case 6
    variable1 = "六"
    Case 7
    variable1 = "七"
    Case 8
    variable1 = "八"
    Case 9
    variable1 = "九"
  End Select
  Select Case Mid(strYear, 1, 1)
    Case 0
    variable2 = "零"
    Case 1
    variable2 = "一"
    Case 2
    variable2 = "二"
    Case 3
    variable2 = "三"
    Case 4
    variable2 = "四"
    Case 5
    variable2 = "五"
    Case 6
    variable2 = "六"
    Case 7
    variable2 = "七"
    Case 8
    variable2 = "八"
    Case 9
    variable2 = "九"
  End Select
  Dochangeyear = variable2 & variable1
End Function

Public Function Dochangeyear1(strYear)
strYear = Format(strYear, "yy-mm-dd")
  Select Case Mid(strYear, 2, 1)
    Case 0
    variable1 = "零"
    Case 1
    variable1 = "一"
    Case 2
    variable1 = "二"
    Case 3
    variable1 = "三"
    Case 4
    variable1 = "四"
    Case 5
    variable1 = "五"
    Case 6
    variable1 = "六"
    Case 7
    variable1 = "七"
    Case 8
    variable1 = "八"
    Case 9
    variable1 = "九"
  End Select
  Select Case Mid(strYear, 1, 1)
    Case 0
    variable2 = "零"
    Case 1
    variable2 = "一"
    Case 2
    variable2 = "二"
    Case 3
    variable2 = "三"
    Case 4
    variable2 = "四"
    Case 5
    variable2 = "五"
    Case 6
    variable2 = "六"
    Case 7
    variable2 = "七"
    Case 8
    variable2 = "八"
    Case 9
    variable2 = "九"
  End Select
  Dochangeyear1 = "二零" & variable2 & variable1
End Function

zhengjialon

你能提供一个简单一点的吗？

gdhx

虽然复杂了点，但正是我想要的，谢谢！！

NeilChen

Function FD(DT As Date)
    Dim dtStr As String
    Dim dfStr
    Dim YR, MT, DY
    dtStr = Year(DT)
    mtStr = "零一二三四五六七八九"
    For i = 1 To Len(dtStr)
        dfStr = dfStr & Mid(mtStr, Mid(dtStr, i, 1) + 1, 1)
    Next i
    MT = IIf(Len(Month(DT)) = 1, "0" & Month(DT), Month(DT))
    If Left(MT, 1) = 0 Then
        dfStr = dfStr & "年零" & Mid(mtStr, Mid(MT, 2, 1) + 1, 1)
    Else
        dfStr = dfStr & "年" & Mid(mtStr, Mid(MT, 1, 1) + 1, 1) & "十" & IIf(Mid(MT, 2, 1) = 0, "", Mid(mtStr, Mid(MT, 2, 1) + 1, 1))
    End If
    DY = IIf(Len(Day(DT)) = 1, "0" & Day(DT), Day(DT))
    If Left(DY, 1) = 0 Then
        dfStr = dfStr & "月零" & Mid(mtStr, Mid(DY, 2, 1) + 1, 1)
    Else
        dfStr = dfStr & "月" & Mid(mtStr, Mid(DY, 1, 1) + 1, 1) & "十" & IIf(Mid(DY, 2, 1) = 0, "", Mid(mtStr, Mid(DY, 2, 1) + 1, 1))
    End If
    FD = dfStr & "日"
End Function

办公之星

　　工欲善其事，必先利其器。
　　时间有限，精力有限，看见这玩儿就想晕。

chaojianan

谢谢分享。收藏了。