Public Function HZDate(MyDate, ymd As String) As String
'汉字中文日期分割
If IsNull(MyDate) Or Not IsDate(MyDate) Then
HZDate = "" '如果为空或不是日期类型,返回空
Exit Function
End If
Dim i As Long, cd(3) As String
For i = 1 To Len(Year(MyDate))
cd(0) = cd(0) & Mid("○一二三四五六七八九", CInt(Mid(Year(MyDate), i, 1)) + 1, 1)
Case "y"
HZDate = Choose(Day(MyDate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(MyDate) Mod 10 + 1, 1) '返回日号
Case "ymd"
cd(1) = "年" & Choose(Month(MyDate) \ 10 + 1, "", "十") & Mid(" 一二三四五六七八九", Month(MyDate) Mod 10 + 1, 1) & "月"
cd(2) = Choose(Day(MyDate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(MyDate) Mod 10 + 1, 1) & "日"
HZDate = Join(cd, "")
HZDate = Replace(HZDate, " ", "") '返回整个日期
Case Else
HZDate = ""
End Select
End Function
'汉字中文日期分割
If IsNull(MyDate) Or Not IsDate(MyDate) Then
HZDate = "" '如果为空或不是日期类型,返回空
Exit Function
End If
Dim i As Long, cd(3) As String
For i = 1 To Len(Year(MyDate))
cd(0) = cd(0) & Mid("○一二三四五六七八九", CInt(Mid(Year(MyDate), i, 1)) + 1, 1)
Next
Case "y"
HZDate = cd(0) '返回年份
HZDate = Choose(Month(MyDate) \ 10 + 1, "", "十") & Mid(" 一二三四五六七八九", Month(MyDate) Mod 10 + 1, 1) '返回月份
HZDate = Choose(Day(MyDate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(MyDate) Mod 10 + 1, 1) '返回日号
Case "ymd"
cd(1) = "年" & Choose(Month(MyDate) \ 10 + 1, "", "十") & Mid(" 一二三四五六七八九", Month(MyDate) Mod 10 + 1, 1) & "月"
cd(2) = Choose(Day(MyDate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(MyDate) Mod 10 + 1, 1) & "日"
HZDate = Join(cd, "")
HZDate = Replace(HZDate, " ", "") '返回整个日期
Case Else
HZDate = ""
End Select
End Function