sandra
28 de Marzo del 2003

Como puede validar en visual que me metan una fecha valida

DANPAS
28 de Marzo del 2003

Prueba con
If not isdate(Control) then
msgbox "Fecha no valida"
else
msgbox "Fecha valida"
end if

donde control puede ser un textbox, label, dtpicker, etc.
Suerte...

ccortes
28 de Marzo del 2003

'Para 21Dic02:
Text1.Text = Format(Now, "DDMMMYY")

'Para 21Di2002:
Text1.Text = Format(Now, "DDMMMYYYY")

Si le pones mas M, dice el mes completo.

o puedes usar este (Cdate(Text1.text ))