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..
Consulta también:

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
y todos se preguntan q pedo
0
oye loco funciona bn
y ahora como es la programacion para validaruna cedula en visual basic 6.0
0
ps no entiendo nada de eso y enserio nesesito rapido ese programa
0
si y esto en vb. net 9
0