IsDate
fco javier
28 de Marzo del 2004
Alguien me podría ayudar tengo en un formulario este control y este procedimiento
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsDate(MaskEdBox1) Then
MsgBox "ATENCION FECHA MAL ESCRITA"
End If
End If
End Sub
Utilizo el sistema operativo xp y la función IsDate no me realiza la función
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsDate(MaskEdBox1) Then
MsgBox "ATENCION FECHA MAL ESCRITA"
End If
End If
End Sub
Utilizo el sistema operativo xp y la función IsDate no me realiza la función
javier_msf
28 de Marzo del 2004
pues si lo que quieres es darle formato a al mask edit sobre el mismo control dale clic derecho y elige el formato de la fecha que deseas; creo que la opcion es en dataformat de sus propiedades y eliges date
a ver si te sirve, de esta manera no necesitas validar con el keyascci, pues solo acepta numeros y - o /
a ver si te sirve, de esta manera no necesitas validar con el keyascci, pues solo acepta numeros y - o /