Function datetotext(fch As Date)
// Combierte fecha formato dd/mm/aaaa en fecha escrita.
// Falta codificar la parte que transforma el año
Dim unidad$, n$
Dim decena$
Dim anio$
Dim resultado$
Dim mes$
Dim fecha$
anio$ = "dos mil quince.-"
n$ = Day(fch)
unidad$ = ""
decena$ = ""
Select Case Mid$(n$, Len(n$), 1)
Case "1"
unidad$ = "uno"
Case "2"
unidad$ = "dos"
Case "3"
unidad$ = "tres"
Case "4"
unidad$ = "cuatro"
Case "5"
unidad$ = "cinco"
Case "6"
unidad$ = "seis"
Case "7"
unidad$ = "siete"
Case "8"
unidad$ = "ocho"
Case "9"
unidad$ = "nueve"
Case "0"
unidad$ = ""
End Select
If Len(n$) > 1 Then
Select Case Mid$(n$, Len(n$) - 1, 1)
Case "1"
Select Case Mid$(n$, Len(n$), 1)
Case "0"
decena$ = "diez"
unidad$ = ""
Case "1"
decena$ = "once"
unidad$ = ""
Case "2"
decena$ = "doce"
unidad$ = ""
Case "3"
decena$ = "trece"
unidad$ = ""
Case "4"
decena$ = "catorce"
unidad$ = ""
Case "5"
decena$ = "quince"
unidad$ = ""
Case"6"
decena$ = "dieci"
Case "7"
decena$ = "dieci"
Case "8"
decena$ = "dieci"
Case "9"
decena$ = "dieci"
End Select
Case "2"
If unidad$ = "" Then decena$ = "veinte" Else decena$ = "veinti"
Case "3"
If unidad$ = "" Then decena$ = "treinta" Else decena$ = "treinta y "
Case "4"
If unidad$ = "" Then decena$ = "cuarenta" Else decena$ = "cuarenta y "
Case "5"
If unidad$ = "" Then decena$ = "cincuenta" Else decena$ = "cincuenta y "
Case "6"
If unidad$ = "" Then decena$ = "sesenta" Else decena$ = "sesenta y "
Case "7"
If unidad$ = "" Then decena$ = "setenta" Else decena$ = "setenta y "
Case "8"
If unidad$ = "" Then decena$ = "ochenta" Else decena$ = "ochenta y "
Case "9"
If unidad$ = "" Then decena$ = "noventa" Else decena$ = "noventa y "
End Select
End If
Select Case Month(fch)
Case 1
mes$ = "enero"
Case 2
mes$ = "febrero"
Case 3
mes$ = "marzo"
Case 4
mes$ = "abril"
Case 5
mes$ = "mayo"
Case 6
mes$ = "junio"
Case 7
mes$ = "julio"
Case 8
mes$ = "agosto"
Case 9
mes$ = "septiembre"
Case 10
mes$ = "octubre"
Case 11
mes$ = "noviembre"
Case 12
mes$ = "diciembre"
End Select
resultado$ = decena$ + unidad$
fecha$ = resultado$ + " de " + mes$ + " de " + anio$
datetotext = fecha$
End Function