Validacion del numero de cedula ecuatoriana en visual basic

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

12 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