| Formato da Inscrição: NNNNNNNN-DD Cálculo do Primeiro Dígito: Módulo 11 com pesos de 2 a 7, aplicados da direita para esquerda, sobre as 8 primeiras posições. Cálculo do Segundo Dígito: Módulo 11 com pesos de 2 a 7, aplicados da direita para esquerda, sobre as 9 primeiras posições (inclui o primeiro dígito). 1º Passo: Multiplicar, da direita para esquerda, cada algarismo por pesos de 2 a 7, respectivamente, somar os resultados, calcular o módulo 11 e subtrair de 11. Se resto for 1 ou 0, veja observação abaixo. 1 2 3 4 5 6 7 8 (CAD)
3 2 7 6 5 4 3 2 (pesos) => 8x2+7x3+6x4+5x5+4x6+3x7+2x2+1x3 => 16+21+24+25+24+21+4+3= 138 Cálculo de módulo 11 (resto da divisão por 11) 138 / 11= 12=> resto 6 (módulo11) 11 - 6= 5 (1º dígito verificador)
2º Passo: Acrescentar o 1º dígito calculado ao CAD. 123.45678-5
3º Passo: Repetir 2º passo ao CAD do 3º passo. 1 2 3 4 5 6 7 8 5 (CAD)
4 3 2 7 6 5 4 3 2 (pesos) => 5x2+8x3+7x4+6x5+5x6+4x7+3x2+2x3 1x4 => 10+24+28+30+30+28+6+6+4= 166 Cálculo de módulo 11 (resto da divisão por 11) 166 / 11= 15=> resto 1 (módulo 11) 11 - 1= 10 Obs: Como cada dígito significa um algarismo, no caso do resto ser 1 ou 0, gerando "dígitos" 10 e 11, definimos o dígito como sendo 0.
4º Passo: Reslutado final - CAD 123.45678-50 | Exemplo do algoritmo em Access Visual Basic Public Function verifica_CAD_PR(CAD As Variant) As Boolean | |
Dim Cad1 As String, CAD2 As String
Dim Soma As Integer, Digito As Integer
Dim i As Integer, j As Integer
Dim Controle As String, Mult As String
'Identifica as 2 partes do CAD
CAD= Format (CAD,"0000000000")
CAD1= Left$ (CAD, 8)
CAD2= Right$ (CAD,2
'Inicializa a variável Controle
Controle= ""
' Multiplicadores que fazem parte do algoritmo de checagem
Mult= "32765432"
'Loop de verificação
For j= 1 To 2 | | | Soma= 0
For i= 1 To 8 | | | | Soma= Soma+(Val(Mid$(CAD1,i,1)) * (Val(Mid$(Mult,i,1))) | | | Next i
If (j = 2) Then Soma= Soma+(2 * Digito)
Digito= 11 - (Soma Mod 11)
If (Digito= 10 Or Digito= 11) Then Digito= 0
Controle= Controle+Trim$(Str$(Digito))
'Sequência de multiplicadores para Cálculo do segundo dígito
Mult= "43276543" | | Next j | |
'Compara dígitos calculados (Controle) com dígitos informados (CAD2)
If (Controle <> CAD2) Then | | | verifica_CAd_Pr= False | | Else | | | verifica_CAD_PR= True | | End If |
End Function |
|