URGENTE EN VALIDACION DE FECHA PLEASE

EDGAR
07 de Diciembre del 2004
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

mvallejos
07 de Diciembre del 2004
Está bien que uses la función IsDate.
¿Te trae algún problema?