Excel - Preguntar por el formato de una fecha

 
Vista:

Preguntar por el formato de una fecha

Publicado por excel principiante (23 intervenciones) el 14/12/2006 15:35:33
Buenos días....como hago para preguntar por el formato de una capo tipo fecha, es decir, que lo que el usuario ingreso si sea dd/mm/yy..

muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Preguntar por el formato de una fecha

Publicado por José Luis (700 intervenciones) el 18/12/2006 09:07:10
Bueno, en principio te enfrentas a un problema de difícil verificación, al usar dos dígitos para el año nunca sabras si el 01/01/05 es el 5 de Enero de 2001 o el 1 de Enero de 2005.
Lo único que puedes hacer para validar si el formato de fecha es correcto es verificar que no han puesto el 31 de Junio o el 29 de Febrero de 2006, etc., salvo que indiques el año en formato de 4 dígitos.

Haz lo siguiente:

....
....
EntraFecha:
MiFecha$ = INPUTBOX("Entre la fecha en formato DD/MM/AAAA","ENTRADA DE FECHA","dd/mm/aaaaa")
ON ERROR GOTO ErrorFecha
'Salva el valor actual de la fecha
SaveFecha$ = Date$
'Intenta asignar la fecha que hemos puesto
Date$ = MiFecha$
'Restaura el valor de la fecha original
Date$ = SaveFecha$
ON ERROR GOTO 0
....
resto del código
....

END

'Esta es la rutina de captura del error de fecha
' Aquí sólo se debe entrar por error , no por secuencia de programa
' Asegúrate de ponerlo después del final del código
'
ErrorFecha:
IF Err = 13 THEN
MsgBox "Error de fecha"
'Al producirse el error es necesario restaurar la fecha original
Date$ = SaveFecha$
RESUME EntraFecha
END IF
...
'Otros controles de fecha
...


Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar