Validacion del numero de cedula ecuatoriana en visual basic

Anuncios

Funcion para validar la cedula de identidad. A quien la necesite:

Public Function VerificaCedula(Cedula As String) As Boolean
VerificaCedula = True
If Len(Trim(Cedula)) <> 10 Then
VerificaCedula = False
End If

If Val(Mid(Cedula, 1, 2)) > 25 Then
VerificaCedula = False
End If

If Val(Mid(Cedula, 3, 1)) > 5 Then
VerificaCedula = False
End If

If VerificaCedula = False Then
MsgBox ("Cedula incorrecta " ), vbInformation
Else
Dim Total As Integer
Dim Cifra As Integer
Total = 0

For a = 1 To 9

If (a Mod 2) = 0 Then
Cifra = Val(Mid(Cedula, a, 1))
Else
Cifra = Val(Mid(Cedula, a, 1)) * 2
If Cifra > 9 Then
Cifra = Cifra - 9
End If
End If
Total = Total + Cifra
Next

Cifra = Total Mod 10

If Cifra > 0 Then
Cifra = 10 - Cifra
End If

If Cifra = Val(Mid(Cedula, 10, 1)) Then
VerificaCedula = True
Else
MsgBox ("Numero de cedula no pasa la validacin, verifique por favor", vbInformation
VerificaCedula = False
End If

End If


End Function


Pueden utilizarlo de la siguente manera





If VerificaCedula(VariableQueContieneLaCedula) = False Then
'Codigo en caso de que la cedula no pase la validacion
Else
'Codigo en caso de que la cedula sea correcta
End If





Hay algun@s que aun lo necesitan asi q va para ell@s. Se aceptan preguntas.

Anuncios

15 comentarios - Validacion del numero de cedula ecuatoriana en visual basic

XTREMEPC09 +1
que mas amigo necesito este codigo pero en realidad no lo entiendo podras explicarlo mas y ademas poner los elementos que se necesita. Mi correo BlissSmile666@hotmail.com
djalvaro_85
que tal amigo.. sabes soy de ecuador y me mandaron de deber como validar el ruc ecuatoriano.. nose si me pudieras dar una manito amigo.. gracias....
ANBU900
Gracias al pelo anda la función
76ackire
oye gracias estuvo muy bueno me ayudo mucho te lo agradezco tuvo que cambiarle solo las cantidades por que en mi país son mas
dogori
EXPLICA ME BIEN
daro1183
creo que lo entenderas mejor con el archivo, si ubicas el correo te lo envío.
diegonol1991
@daro1183 Amigo ayúdame con el ejemplo mi correo diego_nolivos1991@hotmail.com Gracias de anteman
JuanUY
que cedula verifica? de que pais?
eddyjako
Que tal amigo no entiendo puedes explicarme como aplico la funcion
mateoha
Amigo porfaovr digame como en si es hace el programa con que nomas se utilisa , si podria pasarme el archivo porfavor herediamateo@gmail.com gracias por su respuesta.
nobita79 -1
Escribir un comentario...
yocasimato
me podria poner link realizados en ventanas
jork1985
amigo enviame el ejemoli no me funca , saludos unsanejor@hotmail.com
stanleydario
Funciona perfectamente muchas gracias.
edwinwmaldonado1
como es podrias enviarme a mi correo porfa no entiendo muchas cosas de las funciones por fa
edwinwla13@hotmail.com
JuanBautista36
Amigo necesito el código, no lo entiendo me puedes explicar mas y poner los elementos que se necesita. Mi correo: juanbautistakra@gmail.com