Validar números y fechas
Soy nueva en el foro y necesitaría se alguien me podría explicar estas dos funciones se que una es para validar números y la otra es para validar fechas
Private Sub txtnum_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum.KeyPress
Select Case Asc(e.KeyChar)
Case 4, 24, 4, 19, 127, 13, 9, 15, 14
Exit Sub
End Select
If IsNumeric(e.KeyChar) = False Then
MsgBox("Este carater no es un numero ( " + e.KeyChar + " )", vbCritical, "Importante")
e.KeyChar = ""
End If
End Sub
Private Sub txt_fecha_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfec.Validated
If IsDate(sender.Text) Then
If Not sender.Text = Format(CDate(sender.text), "dd/mm/yyyy") Then
Else
MsgBox("Fecha invalida", vbOKOnly + vbCritical, "Atención")
sender.Focus()
Exit Sub
End If
Else
MsgBox("Fecha invalida", vbOKOnly + vbCritical, "Atención")
sender.Focus()
Exit Sub
End If
End Sub
Private Sub txtnum_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum.KeyPress
Select Case Asc(e.KeyChar)
Case 4, 24, 4, 19, 127, 13, 9, 15, 14
Exit Sub
End Select
If IsNumeric(e.KeyChar) = False Then
MsgBox("Este carater no es un numero ( " + e.KeyChar + " )", vbCritical, "Importante")
e.KeyChar = ""
End If
End Sub
Private Sub txt_fecha_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfec.Validated
If IsDate(sender.Text) Then
If Not sender.Text = Format(CDate(sender.text), "dd/mm/yyyy") Then
Else
MsgBox("Fecha invalida", vbOKOnly + vbCritical, "Atención")
sender.Focus()
Exit Sub
End If
Else
MsgBox("Fecha invalida", vbOKOnly + vbCritical, "Atención")
sender.Focus()
Exit Sub
End If
End Sub
1 Respuesta
Respuesta de Eduardo Saligari
1