Public Function FechaTexto(fchCert As Date) As String
Dim intDia As Integer
Dim intMes As Integer
Dim intAño As Integer
Dim strDia As String
Dim strMes As String
Dim strAño As String
intDia = Val(Left(fchCert, 2))
intMes = Val(Mid(fchCert, 4, 2))
intAño = Right(fchCert, 2) ' hasta el 2099
strDia = dimeDia(intDia)
strMes = dimeMes(intMes)
strAño = dimeAño(intAño)
If intDia = 1 Then
FechaTexto = "el " & strDia & " día del mes de " & strMes & " del " & strAño & "."
Else
FechaTexto = " a los " & strDia & " días del mes de " & strMes & " del " & strAño & "."
End If
End Function
'*********************************************
' Día a texto
'*********************************************
Function dimeDia(dameDia As Integer) As String
Select Case dameDia
Case 1
dimeDia = "primer"
Case 2
dimeDia = "dos"
Case 3
dimeDia = "tres"
Case 4
dimeDia = "cuatro"
Case 5
dimeDia = "cinco"
Case 6
dimeDia = "seis"
Case 7
dimeDia = "siete"
Case 8
dimeDia = "ocho"
Case 9
dimeDia = "nueve"
Case 10
dimeDia = "diez"
Case 11
dimeDia = "once"
Case 12
dimeDia = "doce"
Case 13
dimeDia = "trece"
Case 14
dimeDia = "catorce"
Case 15
dimeDia = "quince"
Case 16
dimeDia = "dieciseis"
Case 17
dimeDia = "diecisiete"
Case 18
dimeDia = "dieciocho"
Case 19
dimeDia = "diecinueve"
Case 20
dimeDia = "veinte"
Case 21
dimeDia = "veintiuno"
Case 22
dimeDia = "veintidos"
Case 23
dimeDia = "veintitres"
Case 24
dimeDia = "veinticuatro"
Case 25
dimeDia = "veinticinco"
Case 26
dimeDia = "veintiseis"
Case 27
dimeDia = "veintisiete"
Case 28
dimeDia = "veintiocho"
Case 29
dimeDia = "veintinueve"
Case 30
dimeDia = "treinta"
Case 31
dimeDia = "treintiuno"
End Select
End Function
'*********************************************
' Mes a texto
'*********************************************
Function dimeMes(dameMes As Integer) As String
Select Case dameMes
Case 1
dimeMes = "enero"
Case 2
dimeMes = "febrero"
Case 3
dimeMes = "marzo"
Case 4
dimeMes = "abril"
Case 5
dimeMes = "mayo"
Case 6
dimeMes = "junio"
Case 7
dimeMes = "junio"
Case 8
dimeMes = "agosto"
Case 9
dimeMes = "septiembre"
Case 10
dimeMes = "octubre"
Case 11
dimeMes = "noviembre"
Case 12
dimeMes = "diciembre"
End Select
End Function
'*********************************************
' Año a texto
'*********************************************
Function dimeAño(dameAño As Integer) As String
Select Case dameAño
Case Is < 10
If dameAño = 0 Then
dimeAño = "dos mil"
Else
dimeAño = "dos mil " & dimeDia(dameAño)
End If
Case 10
dimeAño = "dos mil diez"
Case 11
dimeAño = "dos mil once"
Case 12
dimeAño = "dos mil doce"
Case 13
dimeAño = "dos mil trece"
Case 14
dimeAño = "dos mil catorce"
Case 15
dimeAño = "dos mil quince"
Case 16 To 19
dimeAño = "dos mil dieci" & dimeDia(Right(dameAño, 1))
Case 20
dimeAño = "dos mil veinte"
Case 21 To 29
dimeAño = "dos mil veinti" & dimeDia(Right(dameAño, 1))
Case 30
dimeAño = "dos mil treinta"
Case 31 To 39
dimeAño = "dos mil treinta y " & dimeDia(Right(dameAño, 1))
Case 40
dimeAño = "dos mil cuarenta"
Case 41 To 49
dimeAño = "dos mil cuarenta y " & dimeDia(Right(dameAño, 1))
Case 50
dimeAño = "dos mil cincuenta"
Case 51 To 59
dimeAño = "dos mil cincuenta y " & dimeDia(Right(dameAño, 1))
Case 60
dimeAño = "dos mil sesenta"
Case 61 To 69
dimeAño = "dos mil sesenta y" & dimeDia(Right(dameAño, 1))
Case 70
dimeAño = "dos mil setenta"
Case 71 To 79
dimeAño = "dos mil setenta y " & dimeDia(Right(dameAño, 1))
Case 80
dimeAño = "dos mil ochenta"
Case 81 To 89
dimeAño = "dos mil ochenta y " & dimeDia(Right(dameAño, 1))
Case 90
dimeAño = "dos mil noventa"
Case 91 To 99
dimeAño = "dos mil noventa y " & dimeDia(Right(dameAño, 1))
End Select
End Function
Sub octubre()
End Sub