Formato de fecha para informe
Necesito saber si es posible introducir en un informe access un campo o etiqueta de texto el cual devuelva la fecha actual pero de la siguiente forma... Dado a los veintidós días del mes de diciembre de 2022.
3 Respuestas
Guarde esta función en un modulo
Public Function nombre_dia(Optional mfecha As Date, Optional intForma As Byte) If CLng(mfecha) = 0 Then mfecha = Date End If nombre_dia = "Dado a los " & Choose(Day(mfecha), "Un", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete", "Ocho", "Nueve", "Diez", _ "Once", "Doce", "Trece", "Catorce", "Quince", "Dieciséis", "Diecisiete", "Dieciocho", "Diecinueve", "Veinte", _ "Veitiun", "Veintidós", "Veintitrés", "Veinticuatro", "Veinticinco", "Veintisis", "Veintisiete", "Veitiocho", _ "Veintinueve", "Treinta", "Treinta y un") & " días del mes de " & Format(mfecha, "mmmm") & " de " & Year(mfecha) If intForma = 1 Then nombre_dia = StrConv(nombre_dia, 1) ElseIf intForma = 2 Then nombre_dia = StrConv(nombre_dia, 2) ElseIf intForma = 3 Then nombre_dia = StrConv(nombre_dia, 3) End If
Esta función le permite obtener el nombre del mes y demás información, en mayúsculas, minúsculas o nombre propio. Ejemplo de llamada en la ventana de inmediato
1. Sin el segundo parámetro. Si omite la fecha tomará la fecha del sistema
?nombre_dia("22/12/2022")
Dado a los Veintidós días del mes de diciembre de 2022
2. En mayúsculas
?nombre_dia("22/12/2022",1)
Dado a los veintidós días del mes de diciembre de 2022
3. En minúsculas
?nombre_dia("22/12/2022",2)
Dado a los veintidós días del mes de diciembre de 2022
4. En nombre propio (Primera letra en mayúscula)
?nombre_dia("22/12/2022",3)
Dado A Los Veintidós Días Del Mes De Diciembre De 2022
Ejemplo en un informe
Diseño del informe
Resultado del informe
Necesitas unas funciones que transformen el número de día en letra. En el diseño del informe le pongo una etiqueta que se llama Saludo y
En mi caso particular, en el evento Al dar formato de la sección Encabezado del informe, donde está la etiqueta le tengo puesto
Private Sub EncabezadoDelInforme_Format(Cancel As Integer, FormatCount As Integer)
Select Case Len(Day(Date))
Case Is = 1
Saludo.Caption = UCase("Dado a los " & Unidades(Day(Date)) & " días del mes de " & Format(Date, "mmmm") & " de " & Year(Date))
Case Else
Saludo.Caption = UCase("Dado a los " & Decenas(Day(Date)) & " días del mes de " & Format(Date, "mmmm") & " de " & Year(Date))
End Select
End Sub
Public Function Unidades(valor As Long) As String
Dim u As String
Select Case Left(Day(Date), 1)
Case Is = 1
u = "uno"
Case Is = 2
u = "dos"
Case Is = 3
u = "tres"
Case Is = 4
u = "cuatro"
Case Is = 5
u = "cinco"
Case Is = 6
u = "seis"
Case Is = 7
u = "siete"
Case Is = 8
u = "ocho"
Case Is = 9
u = "nueve"
End Select
Unidades = "" & u & ""
End Function
Public Function Decenas(valor As Long) As String
Dim d As String
Select Case Left(Day(Date), 2)
Case Is = 10
d = "Diez"
Case Is = 11
d = "once"
Case Is = 12
d = "doce"
Case Is = 13
d = "trece"
Case Is = 14
d = "catorce"
Case Is = 15
d = "quince"
Case 16 To 19
d = "dieci" & "" & Unidades(Day(Date))
Case Is = 20
d = "veinte"
Case 21 To 29
d = "veinti" & "" & Unidades(Day(Date))
Case Is = 30
d = "treinta"
Case 31
d = "treinta" & " y " & Unidades(Day(Date))
End Select
Decenas = "" & d & ""
End Function
Lo único que se ha de convertir es el numero de día a letra, el resto lo puede hacer Access con su funciones básicas de fecha.
Una forma limpia y sencilla para la conversión numérica a letra que se adapta como un guante, es la función CHOOSE:
XXX = Choose( Day(Date), "uno", "dos", "tres" ... "treinta", "treinta y uno")