Function Myyear(Mydate As Date) As String
Dim i As Long
Dim n As Long
For i = 1 To 4
n = Val(Mid(Year(Mydate), i, 1))
If n = 0 Then
Myyear = Myyear & "〇"
Else
Myyear = Myyear & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九")
End If
Next
Myyear = Myyear & "年"
n = Month(Mydate)
Myyear = Myyear & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二") & "月"
n = Day(Mydate)
Myyear = Myyear & Choose(n, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", _
"十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", "十九", "廿", _
"廿一", "廿二", "廿三", "廿四", "廿五", "廿六", "廿七", "廿八", "廿九", "卅", "卅一") & "日"
End Function
总记录：2篇 页次：1/1 9 1 :
