Salu2
paul

A continuacion les indico como hacer un pequeño programita en visual basic..para validar el rut….

en un formulario se pegan dos textbox y despues habran el formulario ,pegandole esto:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
If Text1.Text = “” Then Exit Sub
dv = RutDigito(Text1.Text)
End If
End Sub
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
y listo….

Por un lado debo indicar que el algoritmo no tiene la capacidad de “validar” la cédula, lo único que hace es aplicar el algoritmo definido por el propio Registro Civil para comprobar si el último dígito del número de cédula proporcionado corresponde con la suma de control calculada en base a los 9 primeros dígitos. Quizá un número aparentemente válido como 0927456384 podría ser igual de inválido (y lo es) que los que mencionas dado que lo que en verdad representaría sería la existencia de una persona a quien se le haya asignado dicho número de cédula y en este ejemplo ninguna persona posee dicho número de cédula.

Por otro lado, concuerdo en que es más que obvio que los números que indicas no deberían ser aprobados por el algoritmo, es más SÍ, debería agregarse las excepciones a la función tal cual lo sugieres. Sin embargo, debo indicar que luego de las pruebas respectivas (mira/prueba aquí) no son 9 los casos que habría que controlar, sino sólo 5 y son: 0000000000, 2222222222, 4444444444, 5555555555, 7777777777, 9999999999.

Por último, he decidido dejar el algoritmo tal cual está, con el principal fin de mantenerlo lo más simple posible y evitar al máximo las confusiones al entenderlo por parte de algunos usuarios poco familiarizados con el lenguaje. En reemplazo pongo a continuación el “parche” para quienes deseen “activar” este control adicional:

Reemplazar la línea 29 por la siguiente:

    if ( ( ( final == 10 && digito == 0 ) || ( final == digito ) ) && ( cedula != '0000000000' && cedula != '2222222222' && cedula != '4444444444' && cedula != '5555555555' && cedula != '7777777777' && cedula != '9999999999' ) ) {

Gracias por tu observación y Salu2!