Digito verificador de la cédula

Cerrado
visual basic - 18 abr 2009 a las 01:04
 Nilsa - 22 oct 2019 a las 15:35
Hola,necesito el código para validar el digito verificador de la cédula en vidual basic 6.0, si alguien me puede ayudar de antemano les agradesco..

6 respuestas

aca va un programita en visual basic..

1.) Abrir un formulario y pegar dos textbox.

2.) abir el text1.text como keypress y pegar esto:

If KeyAscii = 13 Then
KeyAscii = 0
If Text1.Text = "" Then Exit Sub
dv = RutDigito(Text1.Text)
End If

3.) Pegar en cualquier parte del formulario esta funcion:

Public Function RutDigito(ByVal Rut As Long) As String
Dim Digito As Integer
Dim Contador As Integer
Dim Multiplo As Integer
Dim Acumulador As Integer

Contador = 2
Acumulador = 0
While Rut <> 0
Multiplo = (Rut Mod 10) * Contador
Acumulador = Acumulador + Multiplo
Rut = Rut \ 10
Contador = Contador + 1
If Contador = 8 Then
Contador = 2
End If
Wend
Digito = 11 - (Acumulador Mod 11)
RutDigito = CStr(Digito)
If Digito = 10 Then RutDigito = "K"
If Digito = 11 Then RutDigito = "0"
Text2.Text = RutDigito

End Function



i listo..comiencen a probarlo
270
Leonardo Mejía
15 ene 2011 a las 14:51
Muchas gracias, si funciona y me va a ser mdede mucha utilidad
0
dark_zen Mensajes enviados 152 Fecha de inscripción lunes, 6 de septiembre de 2010 Estatus Miembro Última intervención martes, 3 de enero de 2012 107
26 sep 2011 a las 14:12
primero valida si son numeros y de ahi "N" numeros ingresados
1