Function Cuit(strCuit As String) As Boolean
Dim intBase(9) As Integer
Dim intNumero(9) As Integer
Dim intCalculo As Integer
Dim intVerificador As Integer
Dim i As Integer
Dim x As Integer
Cuit = False
x = 5
For i = 0 To 3
intBase(i) = x
x = x - 1
Next
x = 7
For i = 4 To 9
intBase(i) = x
x = x - 1
Next
If Len(strCuit) <> 13 Then
Exit Function
End If
If Mid(strCuit, 3, 1) <> "-" Or Mid(strCuit, 12, 1) <> "-" Then
Exit Function
End If
For i = 0 To 1
intNumero(i) = Mid(strCuit, i + 1, 1)
intCalculo = intCalculo + (intNumero(i) * intBase(i))
Next
For i = 2 To 9
intNumero(i) = Mid(strCuit, i + 2, 1)
intCalculo = intCalculo + (intNumero(i) * intBase(i))
Next
intCalculo = 11 - (intCalculo - (Int(intCalculo / 11) * 11))
Select Case intCalculo
Case 11
intCalculo = 0
Case 10
intCalculo = 9
End Select
If intCalculo = Mid(strCuit, 13, 1) Then
Cuit = True
End If
End Function
|
|
