¿Cómo ingresa VB una tarjeta de identificación de 18 o 15 dígitos en text1.text y (determina si la tarjeta de identificación es la tarjeta de identificación correcta) incluye el dígito 18 con una X?
Subcomando privado1_Click()
Si Len(Text1.Text) = 15 Entonces
Sfz15
ElseIf Len(Text1.Text ) = 18 Entonces Sfz18
Else
MsgBox "¡El número de dígitos en el número de identificación es incorrecto!"
Salir de Sub
End If
End Sub
Public Sub Sfz18()
Dim Jym1 As Integer, Jym2 As String
' Compruebe si la verificación el código es correcto a continuación
Sfzh = Text1.Text
Jym1 = Val(Mid(Sfzh, 1, 1)) * 7 + Val(Mid(Sfzh, 2, 1)) * 9 _
+ Val(Medio(Sfzh, 3, 1)) * 10 + Val(Medio(Sfzh, 4, 1)) * 5 _
+ Val(Medio (Sfzh, 5 , 1)) * 8 + Val(Medio(Sfzh, 6, 1)) * 4 _
+ Val(Medio(Sfzh, 7, 1)) * 2 + Val(Medio (Sfzh, 8 , 1)) * 1 _
+ Val(Medio(Sfzh, 9, 1)) * 6 + Val(Medio(Sfzh, 10, 1)) * 3 _
+ Val(Medio(Sfzh, 11, 1)) * 7 + Val(Medio(Sfzh, 12, 1)) * 9 _
+ Val(Medio(Sfzh, 13, 1) )) * 10 + Val(Medio(Sfzh, 14, 1)) * 5 _
+ Val(Medio(Sfzh, 15, 1)) * 8 + Val(Medio(Sfzh, 16, 1) )) * 4 _
+ Val(Mid(Sfzh, 17, 1)) * 2
Jym1 = Jym1 Mod 11
Si Jym1 = 1 Entonces
Jym2 = 0
ElseIf Jym1 = 0 Entonces Jym2 = 1
ElseIf Jym1 = 2 Entonces Jym2 = "x"
Else
Jym2 = 12 - Jym1
Fin si
Si Jym2 <> Mid(Sfzh, 18, 1) Entonces
MsgBox " ¡Este no es un número de identificación válido! "
Salir Sub
End If
'Lo siguiente comprueba si la fecha de nacimiento es correcta
Jym2 = Mid(Text1. Texto, 7, 4) & "-" & Mid(Text1.Text, 11, 2) & "-" & Mid(Text1.Text, 13, 2)
Si no es Fecha(Jym2) Entonces
MsgBox "¡Este no es un número de identificación válido! "
Salir Sub
Finalizar si
MsgBox "¡Este es un número de identificación válido!"
End Sub
Public Sub Sfz15()
Dim Jym2 As String
'A continuación se comprueba si la fecha de nacimiento es correcta
Jym2 = Mid(Text1.Text, 7, 2) & "-" & Mid(Text1.Text, 9, 2) ) & "-" & Mid(Text1.Text, 11, 2)
Si no es Fecha(Jym2) Entonces
MsgBox "¡Este no es un número de identificación válido!"
Salir del sub
End If
MsgBox "¡Este es un número de identificación válido!"
End Sub
Por favor ver mi blog:/zgmg/blog/item/051ba235714ee00b91ef3943.html?timeStamp=1311164718265