Codigo Funcion Comprobar Digito Verificador Contenedores.

quieres hacer un valida rut? o quieres hacer un codigo de validacion de otro algoritmo, si es un validador de rut creo que tengo uno en vba, en un sistema de venta que hice en excel cuando estudiaba, lo que si la comprobacion de los datos yo la hacia en un formulario, y no desde la hoja de calculo.

tratare de subir el codigo hoy en la noche o mañana del validador de rut.

 

No encontre el codigo, jajaja disculpa pero extravie el archivo,

mira esto lo hice en un editor de texto en definitiva debiese calcular el digito verificador y compararlo con el que recibes de parametro.


********************************************************************************************************
****variables utilizadas***************
misuma, miresto, mifactor, eldigito, miresultado 'usadas para calculos en la funcion
*****el parametro mantuve el mismo que venia en la funcion que escribiste tu. lcCont********

misuma = 0 'variable para acumular el calculo del rut

eldigito = mid(lcCont, 10, 1) 'obtiene el valor del digito de la cadena (parametro)

mifactor =1 'se utiliza para multiflicar en ascenso de 2 a 7 se inicia en 1 ya que en el for se aumenta al entrar

For i = 8 To 1 step -1
mifactor = mifactor +1 'aumentamos el valor del factor

if mifactor = 8 ' si es ocho lo devolvemos a 2
mifactor = 2
end if

misuma = misuma + ((mid(lcCont, i,1)) * mifactor)
End For

miresto = misuma mod 11 ' obtenemos el resto de la operacion

miresultado = 11- miresto 'obtenemos el valor para saber el dv

if miresultado < 10
midigito = miresultado
else if miresultado = 10
midigito = "k"
else
midigito = 0
End
IF midigito = eldigito
'aca debes colocar que es lo que quieres obtener si el ingrersado es correcto
else
'aca si esta mal el numero
end if


***********************************************************************************************
el tema es que si siempre deberas ingresar rut con 10 numeros, en caso de que sean demenos de 10.000.000, deberas agregar un cero, lo ideal hubiese sido que el dv fuera aparte de manera de contar los caracteres

espero te sirva, puede que algunas estructuras no esten bien ya que hace años que no hago nada en VBA.


Espero te sirva.

 

No encontre el codigo, jajaja disculpa pero extravie el archivo,

mira esto lo hice en un editor de texto en definitiva debiese calcular el digito verificador y compararlo con el que recibes de parametro.


********************************************************************************************************
****variables utilizadas***************
misuma, miresto, mifactor, eldigito, miresultado 'usadas para calculos en la funcion
*****el parametro mantuve el mismo que venia en la funcion que escribiste tu. lcCont********

misuma = 0 'variable para acumular el calculo del rut

eldigito = mid(lcCont, 10, 1) 'obtiene el valor del digito de la cadena (parametro)

mifactor =1 'se utiliza para multiflicar en ascenso de 2 a 7 se inicia en 1 ya que en el for se aumenta al entrar

For i = 8 To 1 step -1
mifactor = mifactor +1 'aumentamos el valor del factor

if mifactor = 8 ' si es ocho lo devolvemos a 2
mifactor = 2
end if

misuma = misuma + ((mid(lcCont, i,1)) * mifactor)
End For

miresto = misuma mod 11 ' obtenemos el resto de la operacion

miresultado = 11- miresto 'obtenemos el valor para saber el dv

if miresultado < 10
midigito = miresultado
else if miresultado = 10
midigito = "k"
else
midigito = 0
End
IF midigito = eldigito
'aca debes colocar que es lo que quieres obtener si el ingrersado es correcto
else
'aca si esta mal el numero
end if


***********************************************************************************************
el tema es que si siempre deberas ingresar rut con 10 numeros, en caso de que sean demenos de 10.000.000, deberas agregar un cero, lo ideal hubiese sido que el dv fuera aparte de manera de contar los caracteres

espero te sirva, puede que algunas estructuras no esten bien ya que hace años que no hago n


Espero te sirva.

 

revisa si te sirve.

 

Insertar CODE, HTML o PHP:

Public Shared Function ValidarRut(ByVal rut As String, ByVal ver As String) As Boolean
            Try
                Dim Digito As Integer
                Dim Contador As Integer
                Dim Multiplo As Integer
                Dim Acumulador As Integer
                Dim Verificador As String
                rut = rut.Replace(".", "")
                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
                End While
                Digito = 11 - (Acumulador Mod 11)
                If Digito = 10 Then
                    Verificador = "k"
                ElseIf Digito = 11 Then
                    Verificador = "0"
                Else
                    Verificador = Digito
                End If

                If ver = Verificador Then
                    Return True
                Else
                    Return False
                End If
            Catch ex As Exception
                Return False
            End Try
        End Function

listo, ahí tienes el que yo uso siempre