RE:Preguntar por el formato de una fecha
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