Estimados, buenas tardes a todos.
Compañeros de este, el mejor foro de Excel.
Necesito la formula para generar el digito verificador, del RUT Chileno:
LO IMPORTANTE ES QUE SEA DIRECTO EN UNA CELDA Y NO CON MACRO
La verdad es que no me manejo muy bien con las funciones de matrices o vectores, por eso es quie recurro a ustedes.
Muchas gracias
Compañeros de este, el mejor foro de Excel.
Necesito la formula para generar el digito verificador, del RUT Chileno:
PHP:
Public Function Rut
Digito(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 > 7 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"
End Function
PHP:
Se procede a tomar el número de RUT de derecha a izquierda,
multiplicando cada dígito por los números que componen la serie
numérica 2, 3, 4, 5, 6, y 7; y sumando el resultado de estos productos.
Si se ha aplicado la serie hasta el final y quedan dígitos por multiplicar,
se comienza la serie nuevamente: 7 × 2 = 14,
5 × 3 = 15,
9 × 4 = 36,
6 × 5 = 30,
8 × 6 = 48,
6 × 7 = 42,
0 × 2 = 0,
3 × 3 = 9,
entonces la suma de los productos es:
14+15+36+30+48+42+0+9 = 194
- Al número obtenido por la suma del producto de cada dígito por la
serie ya mencionada, se le aplica módulo 11, o sea, se divide por 11
y se determina el resto de la división:
parte entera de (194 : 11) = 17
resto de la división entera: (194 - 11 * 17) = 7
- Ahora a 11 se le resta el resto calculado antes:
11 - 7 = 4
- Al resultado final, se le convierte a una letra o número, siguiendo estas reglas:
Si el resultado es 11, el dígito verificador será 0 (cero).Si el resultado es 10, el dígito verificador será K.En otro caso, el resultado será el propio dígito verificador.Como en el ejemplo el resultado de la resta es 4, el dígito verificador es 4.LO IMPORTANTE ES QUE SEA DIRECTO EN UNA CELDA Y NO CON MACRO
La verdad es que no me manejo muy bien con las funciones de matrices o vectores, por eso es quie recurro a ustedes.
Muchas gracias
