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.:
Publicar un comentario