• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

FUNCIO DV (Digito Verificador) EL METODO MAS CORTO!!

fbaxter

New member
Hola nuevamente estoy aqui, les incluyo el código que inventé para determinar el digito verificador y quisiera plantear el siguiente desafío... ¿Alguien puede hacer un método mas corto que este?

Function DV(RUT As String)

For X = Len(RUT) To 1 Step -1
S = S + Mid(RUT, X, 1) * Mid("32765432", X, 1)
Next

DV = Mid("123456789K0", Round(11 - (S / 11 - Int(S / 11)) * 11, 0), 1)

End Function


El archivo para que lo comprueben y el metodo esta aqui --->
 

Adjuntos

fbaxter

New member
Acabo de haber superado mi propio record
Function DV(RUT As String)

For X = Len(RUT) To 1 Step -1
S = S + Mid(RUT, X, 1) * Mid("32765432", X, 1)
Next

DV = Mid("0K987654321", Round(S Mod 11, 0) + 1, 1)

End Function</COLOR>
<COLOR color="#000000">

Que aburrido no?.... Pero bueno en algo hay que entretenerso no?

 

Adjuntos

fbaxter

New member
Encontre un metodo mas corto aun... bueno... hay que matar el aburrimiento de algun modo no?

Function DV(RUT As String)

For X = Len(RUT) To 1 Step -1
S = S + Mid(RUT, X, 1) * Mid("32765432", X, 1)
Next

DV = Mid("0K987654321", Round(S Mod 11, 0) + 1, 1)

End Function


Aqui esta el archivo
 

Adjuntos

guillermo h

New member
Hola Compañero ,

Una consulta como se determina el digito verificador ?

Es que tal vez ( no sé ) para todos los lugares es distinto

Para determinarlo aqui no me funciona tu codigo ?
 
Arriba