Дробные числа прописью

'Год и месяц текстом
Public Function YearMonth(txt)
    Dim p, r, g, m, d, f1, f2
    If txt & "" = "" Then YearMonth = Null: Exit Function
    r = Replace(txt, ",", ".")
    d = Array("ноль", "один", "два", "три", "четыре", "пять", _
        "шесть", "семь", "восемь", "девять", "десять", _
        "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", _
        "пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", _
        "девятнадцать")
    p = Split(r, ".")
    f1 = p(0)
    Select Case Val(f1)
        Case 1: g = "год"
        Case 2 To 4: g = "года"
        Case Else: g = "лет"
    End Select
    If UBound(p) = 0 Then
        m = Null
        f2 = Null
    Else
        f2 = d(p(1))
        Select Case Val(p(1))
            Case 1: m = "месяц"
            Case 2 To 4: m = "месяца"
            Case Else: m = "месяцев"
        End Select
    End If
    YearMonth = d(p(0)) & " " & g & (" " + f2 + " " + m)
End Function

Function StudyDuration(S0 As Variant) As String
 Dim S1 As Byte, _
     S2 As Byte, _
     S3 As String, _
     S4 As String, _
     S5 As String, _
     k As Byte
 k = InStr(Nz(S0), ",")
 If k - 1 < 1 Then
  S1 = Nz(S0)
 Else
  S1 = Left(S0, k - 1)
 End If
 If k = 0 Or Len(S0) = k Then
  S2 = 0
 Else
  S2 = Mid(S0, k + 1)
 End If
 Select Case S1
  Case 1
   S3 = " год"
  Case 2, 3, 4
   S3 = " года"
  Case Else
   S3 = " лет"
 End Select
 Select Case S2
  Case 1
   S4 = " месяц"
  Case 2, 3, 4
   S4 = " месяца"
  Case Else
   S4 = " месяцев"
 End Select
 If S1 = 0 Then
  If S2 <> 0 Then
   S5 = NumInWords(S2) & S4
  End If
 Else
  If S1 = 0 Then
   S5 = NumInWords(S2) & S4
  Else
   S5 = NumInWords(S1) & _
        IIf(S2 = 5, " с половиной" & S3, S3)
   If S2 <> 0 And S2 <> 5 Then
    S5 = S5 & " " & NumInWords(S2) & S4
   End If
  End If
 End If
 StudyDuration = S5
End Function
 
Private Function NumInWords(N As Byte) As String
 NumInWords = Choose(N, "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять", "десять")
End Function

select [имя поля с дробью года,месяца], YearMonth([имя поля с дробью года,месяца]) as ГодМесяц
from ИмяТаблицы