PUNI
11 de Junio del 2003

hola
como hago para validar fechas???
yo pongo que muestre el dia de hoy y me lo muestra en formate dd/mm/yy, y yo quiero el ano en 4 digitos, ocmo lo resuelvo??
ademas como se si lo que me ingresan en ese txt es una fecha valida ??, pongo isdate() y me da erroneo, supongo que debe ser por el formato, nO?

ademas para un form que requiere el ingreso de muchos datos, como hago para validar todos, campo por campo, es decir chequeo que no sea nulo y le doy un msgbox de error??

agradezco mucho a quein me pueda responder esto
gracias

HADES
11 de Junio del 2003

mira para la primera pregunta debes utilizar un format de la siguiente manera
fecha=format([var. de fecha],"dd/MM/yyyy")
con esto lagras tener el formato que gustes
para la segunda pregunta no creo que sea por el formato, pero primero formatea la fecha y despues hasle el if isdate(fecha)
y para la tercer pregunta por que no utilizas el procedimiento LostFocus de cada Objeto este procedimiento yo lo utilizo cada que brinca de en objeto a otro para validar nulos ó datos erroneos.
Si Tienes alguna duda mandame un correo y te mando un ejemplo.
No se si alguien tenga una Idea mejor.
SALUDOS a todos!!!
[email protected]

ccortes
11 de Junio del 2003

If Text1.Text = "" Then 'Para no dejar los campos en blanco
MsgBox ("INTRODUZCA LA FECHA"), 16, "MENSAJE"
Text1.SetFocus
Exit Sub
End If
Fecha = Format(Text1.Text, "DD/MM/YYYY") ' para insertar el valor como fecha

Ahora prueba utilizar la funcion
If Not IsDate(Text1.text) them
'envia el mensaje de error
else
'continua el resto del codigo