Cambiar a formato fecha de aaaammdd a dd/mm/aaaa
Tengo una tabla con un campo de texto que contiene la fecha pero de esta forma AAAAMMDD (ejemplo 20220125 que equivaldría a 25/01/2022).
En una consulta, ¿como podría convertir dicho campo a DD/MM/AAAA?
Respuesta de Eduardo Pérez Fernández
1
Observe este ejemplo:
TABLA
DISEÑO DE LA CONSULTA
RESULTADO DE LA CONSULTA
Puede llamar la siguiente función
Public Function cadenaFecha(strText As String) As Date
' ejemplo: cadenafecha("20220125") retorna 25/01/2022
Dim intPeriodo As Integer
Dim intMes As Integer
Dim intDia As Integer
intPeriodo = Mid(strText, 1, 4) '20220125
intMes = Mid(strText, 5, 2)
intDia = Right(strText, 2)
cadenaFecha = DateSerial(intPeriodo, intMes, intDia)
End FunctionEsta es una forma, pero seguro que existen otras.
