Validar fecha actual.

[josuam]

Buenas noches!!

Tengo el siguiente código para validar el ingreso correcto de las fechas, pero también quiero poder controlar que si la fecha a ingresar es diferente a la actual se pida verificar si efectivamente se desea ingresar la fecha digitada o si se desea cancelar el ingreso, limpiando el textbox y dejando el setfocus en él.

 

Private Sub Fecha_Exit(ByVal Cancel As MSForms.ReturnBoolean)

        If Me.Fecha <> Empty Then
            If Not IsDate(Me.Fecha) Then
                MsgBox ("Introduzca una fecha correcta"), vbCritical
                Cancel = True
                Me.Fecha = Empty
                Else
                Me.Fecha = Format(CDate(Me.Fecha), "dd/mm/yyyy")
            End If
        End If

End Sub

[Antoni]

Private Sub Fecha_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Fecha <> Empty Then
      If Not IsDate(Me.Fecha) Then
         MsgBox ("Introduzca una fecha correcta"), vbCritical
         Cancel = True: Fecha = Empty
         Exit Sub
      End If
      If Not CDate(Fecha) = Date Then
         If MsgBox("La fecha no coincide con el día de hoy" & Chr(10) & _
                   "        ¿Desea continuar?", vbYesNo + vbQuestion) = vbNo Then
            Cancel = True: Fecha = Empty
            Exit Sub
         End If
      End If
      Fecha = Format(CDate(Fecha), "dd/mm/yyyy")
   End If
End Sub

 

[josuam]

Muchas gracias Antoni por la ayuda, funciona correctamente.

Sólo quería hacer una consulta más. Será posible que me permita ingresar tanto el día actual como el día anterior como máximo sin lanzar el mensaje de revisión.

[Antoni]

If Not CDate(Fecha) = Date And Not CDate(Fecha) = Date - 1 Then

 

[josuam]

Muchas gracias Antoni, no me había enfocado bien y lo había hecho con OR, por lo que no me daba bien el resultado. Quedo muy agradecido!! 

Bendiciones!!