如何通过查询将1968年11月24日转化为一九六八年十二月二十四日

Public Function CDateTime(MyDate As Date) As String
'中文日期大写
'引用:CDateTime(# 1968-1-24 #)
    Dim i As Long, D(3) As String
    For i = 1 To Len(year(MyDate))
        D(0) = D(0) & Mid("○一二三四五六七八九", CInt(Mid(year(MyDate), i, 1)) + 1, 1)
    Next
    D(1) = "年" & Choose(Month(MyDate) \ 10 + 1, "", "十") & Mid(" 一二三四五六七八九", Month(MyDate) Mod 10 + 1, 1) & "月"
    D(2) = Choose(Day(MyDate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(MyDate) Mod 10 + 1, 1) & "日"
    CDateTime = Join(D, "")
    CDateTime = Replace(CDateTime, " ", "")
End Function