Formato de fechas
Me gustaría saber como puedo cambiar una fecha, por ejemplo: 25/12/2002, al formato 25122002.
Muchas Gracias
Muchas Gracias
1 respuesta
Respuesta de leosoft
1
El formato que tu pides no es nada estándar, tendrás que utilizar una función, te paso como se podría hacer:
Private Function CambioFecha(FechaEntrada As String) As String
If IsDate(FechaEntrada) And Len(FechaEntrada) = 10 Then
CambioFecha = Left(FechaEntrada, 2) & Mid(FechaEntrada, 4, 2) & Right(FechaEntrada, 4)
Else
CambioFecha = "ERROR"
End If
End Function
ahora con esto pondrias algo asi:
fecha1 = "25/12/2002"
fecha2 = CambioFecha(fecha1)
Asi llamarias a la funcion que te convertiria el format, en relidad solo le saca las barras "/".
Fíjate que por las dudas le puese una comprobación de que sea una fecha correcta, de lo contrario la función te va a entregar "ERROR", eso lo puedes sacar o poner lo que vos quieras.
Private Function CambioFecha(FechaEntrada As String) As String
If IsDate(FechaEntrada) And Len(FechaEntrada) = 10 Then
CambioFecha = Left(FechaEntrada, 2) & Mid(FechaEntrada, 4, 2) & Right(FechaEntrada, 4)
Else
CambioFecha = "ERROR"
End If
End Function
ahora con esto pondrias algo asi:
fecha1 = "25/12/2002"
fecha2 = CambioFecha(fecha1)
Asi llamarias a la funcion que te convertiria el format, en relidad solo le saca las barras "/".
Fíjate que por las dudas le puese una comprobación de que sea una fecha correcta, de lo contrario la función te va a entregar "ERROR", eso lo puedes sacar o poner lo que vos quieras.
