ACCESS VBA 数字日期转换为汉字日期并具有分割功能

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)

        Next

    Select Case ymd
        Case "y"

            HZDate = cd(0) '返回年份

        Case "m"

            HZDate = Choose(Month(MyDate) \ 10 + 1, "", "十") & Mid(" 一二三四五六七八九", Month(MyDate) Mod 10 + 1, 1) '返回月份

        Case "d"
            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