Дата прописью

Private Sub ЧислоЦифры_Change()
Dim c As Currency
    On Error GoTo 999
    c = ЧислоЦифры.Text
    Me.ЧислоБуквы = funRusMoney(c, False) 'Обычная пропись
    Exit Sub
999:
    Me.ЧислоБуквы = "Введите правильно дату!"
End Sub

'Преобразование даты из числового формата в текст с 2001 по 2099 год
Public Function ДатаПрописью(md As Date) As String
If (md < 36892) Or (md > 73050) Then
ДатаПрописью = "Преобразуемая дата должна быть с 2001 по 2099 год!"
Else
Dim den As Byte, dg(1 To 4) As Byte, mes As Byte, god As Byte, _
mespr As String, dmgpr As String
den = Day(md)
mes = Month(md)
god = (Year(md) Mod 100)
dg(1) = god Mod 10
dg(2) = Fix(god / 10)
dg(3) = den Mod 10
dg(4) = Fix(den / 10)
Dim dgpr(1 To 4) As String, i1 As Byte
For i1 = 1 To 4
If (i1 = 1) Or (i1 = 3) Then
If dg(i1 + 1) = 1 Then
dgpr(i1) = Choose(dg(i1) + 1, "десятого ", "одиннадцатого ", "двенадцатого ", _
"тринадцатого ", "четырнадцатого ", "пятнадцатого ", "шестнадцатого ", _
"семнадцатого ", "восемнадцатого ", "девятнадцатого ")
Else
dgpr(i1) = Choose(dg(i1) + 1, "", "первого ", "второго ", _
"третьего ", "четвертого ", "пятого ", "шестого ", _
"седьмого ", "восьмого ", "девятого ")
End If
ElseIf (i1 = 2) Or (i1 = 4) Then
If dg(i1 - 1) = 0 Then
dgpr(i1) = Choose(dg(i1) + 1, "", "", "двадцатого ", _
"тридцатого ", "сорокового ", "пятидесятого ", "шестидесятого ", _
"семидесятого ", "восьмидесятого ", "девяностого ")
Else
dgpr(i1) = Choose(dg(i1) + 1, "", "", "двадцать ", _
"тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", _
"семьдесят ", "восемьдесят ", "девяносто ")
End If
End If
Next
mespr = Choose(mes, "января ", "февраля ", "марта ", "апреля ", "мая ", _
"июня ", "июля ", "августа ", "сентября ", "октября ", "ноября ", "декабря ")
dmgpr = dgpr(4) & dgpr(3) & mespr & "две тысячи " & dgpr(2) & dgpr(1) & "года"
ДатаПрописью = Replace(dmgpr, Left(dmgpr, 1), UCase(Left(dmgpr, 1)), 1, 1)
End If
End Function

Sub mm200226_date()
Dim dt As Date
dt = CDate("03/04/2001"): ДатаПрописью (dt)
dt = CDate("04/03/2011"): ДатаПрописью (dt)
dt = CDate("13/03/2033"): ДатаПрописью (dt)
dt = CDate("03/13/2033"): ДатаПрописью (dt)
dt = CDate("02/29/2032"): ДатаПрописью (dt)
dt = CDate("29/02/2032"): ДатаПрописью (dt)
dt = CDate("29/02/2000"): ДатаПрописью (dt)
'''
dt = CDate("29/02/2031"): ДатаПрописью (dt)  
''03.04.2001    Третьего апреля две тысячи первого года
''04.03.2011    Четвертого марта две тысячи одиннадцатого года
''13.03.2033    Тринадцатого марта две тысячи тридцать третьего года
''13.03.2033    Тринадцатого марта две тысячи тридцать третьего года
''29.02.2032    Двадцать девятого февраля две тысячи тридцать второго года
''29.02.2032    Двадцать девятого февраля две тысячи тридцать второго года
''29.02.2000    Преобразуемая дата должна быть с 2001 по 2099 год!
29/02/2031   ----error cdate
End Sub

?Format(Now,"\С\е\г\о\д\н\я\: d mmmm yyyy\, \(ddd\.\) \В\р\е\м\я\: hh:mm:ss")

Сегодня: 26 февраля 2020, (Ср.) Время: 21:02:59

Sub test01()
Dim s$
    s = "25.02"
    s = Format(DateSerial(Year(Now), CInt(Mid(s, 4)), CInt(Mid(s, 1, 2))), "d mmmm yyyy")
    Debug.Print s
End Sub

25 февраля 2020

? DLookUp("D", "DateInWords", "N=" & Day(Date())) & " " & DLookUp("M", "DateInWords", "N=" & Month(Date()))
двадцать седьмое февраля