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

No se mucho de VB pero te sugiero que trates la fecha como un número (en tu
caso el 30/06/2003 es el 37802) por lo que parece le pides que que compare
si la variable es menor que "30/06/2003" como texto y para excel el texto
30/06/2003 es menor que 31/06/2002 aunque como fecha es mayor



"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

Mejor utiliza la opcion:Datos/Validación/configuración
esto te validara los datos ingresados en la celda e
inclusive en las otras pestañas puedes configurar un
mensaje de error

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

.

Gracias. Me sirvio.
Solo una duda; porque no acepta de manera directa la fecha?

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

.

Gracias Me sirvio.
Solo una duda; porque no acepta de manera directa la fecha?

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

.