Visual Basic - URGENTE EN VALIDACION DE FECHA PLEASE

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE EN VALIDACION DE FECHA PLEASE

Publicado por EDGAR (193 intervenciones) el 04/12/2004 19:59:27
Hola colega, tengo un grave problema ya que estoy haciendo las validaciones de mis fechas pero no se que propiedad o de que forma codificar para que me valide los dias y meses para que por ejemplo si pongo el dia 32 me diga que es incorrecta o si digo que el mes es 13 tambien es incorrecto. Pero necesitaria hacer esa validacion tomando en cuenta un Date que me permita diferencias los meses que tengan 30 0 31 dias o en el caso del mes 02 que dependiendo del año es 28 dias.. Estoy trabajando en un masked box y por diferentes motivos me veo obligado a trabajar con este control y no con el dtpicker. Se que hay la posibilidad de solucionar este problema, lo que te agradezco de antemano... El codigo que tengo a continuacion es lo que llevo en las validaciones que he echo:

Private Sub MKBfecnac_KeyPress(KeyAscii As Integer)
Dim A As Date
Dim B As Date
A = "01/01/2010"
B = "01/01/1900"
If KeyAscii = 13 Then
If MKBfecnac <> "__/__/____" Then
If IsDate(MKBfecnac) = True And MKBfecnac.Text <= A And MKBfecnac.Text >= B Then
fecnac = MKBfecnac
SendKeys "{tab}"
KeyAscii = 0
Else
varmsg1 = MsgBox("La Fecha de Nacimiento es Invalida!!!", vbExclamation, "Atención")
MKBfecnac.Text = "__/__/____"
MKBfecnac.SetFocus
End If
Else
fecnac = Empty
SendKeys "{tab}"
KeyAscii = 0
End If
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder