Visual Basic - Ayuda Chilenos ?

Hola, pueden decirme la formula para calcular el dígito verificador del Rut, lo necesito para hacer la rutina para comprobar el rut en un programa de visual basic.

Chao, gracias.

Chile.

Hola
Esta función te devuelve el dígito verificador, que puedes comparar con el dígito que haya ingresado el usuario.
El código no es mío, por si acaso, creo que lo obtuve en este mismo foro

Public Function RutDigito(ByVal Numeros As Long) As String
Dim cuenta, suma, resto, digito As Integer
Dim dig As Currency
suma = 0
cuenta = 2
Do
dig = Numeros Mod 10
Numeros = Int(Numeros / 10)
suma = suma + (dig * cuenta)
cuenta = cuenta + 1
If cuenta = 8 Then cuenta = 2
Loop Until Numeros = 0
resto = suma Mod 11
digito = 11 - resto
Select Case digito
Case 10
RutDigito = "K"
Case 11
RutDigito = "0"
Case Else
RutDigito = Trim(Str(digito))
End Select
End Function

hola paisano :
la formula es la siguiente, un ejemplo es mejor :

78.365.440 - 7 un rut verdadero de una empresa x
tienes que multiplicar los digitos del rut empezando por el ultimo al primero, excluyendo el verificador, por 2 hasta el 7 y si hay mas numeros empezar nuevamente por el 2. o sea:

0*2= 0
4*3= 12
4*4=16
5*5=25
6*6=36
3*7=21
8*2=16
7*3=21

luego sumamos los resultados y nos da : 147
este resultado lo dividimos por 11

147 : 11 = 13
4
//
siempre usar solo enteros, ose a 147 : 11 = 13 por lo tanto
11 * 13 = 143 y el resto es 4 o sea 147-143 = 4
este resto se lo restamos al 11 o sea

11 - 4 = 7 y listo tenemos nuetro digito verificador. o sea 7.

ojo si el resultado de la resta es 10 se coloca la K y si es mayor algo anda mal OK.

espero ayudarte .

chaleco
chabela
nos vimos
chaolin
jota bus

Se pasaron, guena onda amigos, chao y muchas gracias a los dos