Fechas

Hola Juanca!
Asigna la fecha a una variable previamente definida como fecha, tal que así:

Dim FechaTope As Date
FechaTope = "30/06/03"
If DateValue(TxtDia.Text) < FechaTope Then
Beep 'para que emita un sonido de aviso
MsgBox ("A data ten que ser maior ao 30/06/03"), vbCritical, "Titulo del
mensaje"
TxtDia = ""
TxtDia.SetFocus
End If

De esta forma, a mí me funciona perfectamente.
Sustituye la frase "Título del mensaje" por el título del cuadro de aviso
que te sale con el msgbox.

saludos

Juan Carlos Pérez
Asturias-España




"juanca" escribió en el mensaje
news:0b6901c34ba1$ab42b780$

Simple, tam simple como el hecho de que no se como hacerlo.

Tengo un formulario dentro de este cuadro de texto
(TxtDia.Text)en el cual el usuario debe de ingresar una
fecha.
Pues bueno esa fecha no puede ser menor que el 30/06/2003
y escribi el siguiente codigo pero me da el mensaje de
erro aun y con fechas mayores al 30/06/2003. Cual es el
error.

If DateValue(TxtDia.Text) < "30/06/2003" Then
MsgBox ("A data ten que ser maior ao 30/06/03")
TxtDia.SetFocus
Exit Sub
End If