Ver originales (Francés)

Control de entrada formato dd/mm/aaaa

Resuelto
lml-mike Mensajes publicados 449 Fecha de registro   Estado Colaborador Última intervención   -  
lml-mike Mensajes publicados 449 Fecha de registro   Estado Colaborador Última intervención   -
Bonjour,

Estoy buscando simplemente realizar un control de entrada en un inputbox, que indique una entrada incorrecta si:

- La fecha no está en el formato dd/mm/aaaa
- La fecha es superior a la fecha de hoy

Eso es todo :)

¡Gracias por tu ayuda!

Mike.

2 respuestas

  1.
    Polux31 Mensajes publicados 7219 Estado Miembro 1 204
     
    Hola,

    Una pista: 

    Sub testSaisieDate() Dim rep As String rep = InputBox("Ingresar la fecha") If Not IsDate(rep) Then MsgBox "No es un formato de fecha" test End If If CDate(rep) > Date Then MsgBox "La fecha debe ser anterior a la fecha de hoy" test End If If rep <> Format(rep, "dd/mm/yyyy") Then MsgBox "el formato debe ser dd/mm/aaaa" test End If End Sub


    ;o)
    --
    «Lo que se concibe bien se expresa claramente, Y las palabras para decirlo llegan fácilmente.»
    Nicolás Boileau
    10