24 oct. 2016

Excel: macro para "Validar CUIT"

Esta Macro la corregí en Wikipedia y funciona así, se debe invocar la función colocando el nombre de la misma seguido del número de CUIT completo sin guiones como único parámetro, es decir, por ejemplo:
=ValidarCuit(20084908488)



Public Function ValidarCuit(ByVal Cuit As String) As Boolean
    If Len(Cuit) = 11 Then
        Dim Ponderador As Integer
        Dim Acumulado As Integer
        Dim Digito As Integer
        Dim Posicion As Integer

        Ponderador = 2
        Acumulado = 0

        'Recorro la cadena de atrás para adelante
        For Posicion = 10 To 1 Step -1
            'Sumo las multiplicaciones de cada dígito x su ponderador
            Acumulado = Acumulado + Val(Mid$(Cuit, Posicion, 1)) * Ponderador
            Ponderador = Ponderador + 1

            If Ponderador > 7 Then Ponderador = 2
        Next
    
        Digito = 11 - (Acumulado Mod 11)
        If Digito = 11 Then Digito = 0

        ValidarCuit = (Digito = Right(Cuit, 1))
    Else
        ValidarCuit = False
    End If
End Function

Esto da como resultado VERDADERO ó FALSO.

Fuente: https://es.wikipedia.org/wiki/Clave_Única_de_Identificación_Tributaria

No hay comentarios.: