©2024 CJDinfo®

Detalhe Solução

ASP: Cálculo Dígito Módulo 11 (CPF, CNPJ, RG, PIS, etc):

'------------------------------------------------------------------
' CalculaDigitoMod11(Dado, NumDig, LimMult, X10)
'
' CJDinfo - V6.0 - Mai/2001~Ago/2024
'
' Retorna o(s) NumDig Dígitos de Controle Módulo 11 do NumDado
' limitando o Valor de Multiplicação em LimMult,
' multiplicando a soma por 10, se indicado:
'
' Números Comuns:     NumDig     LimMult   X10
'      CPF               2           12    true
'      CNPJ              2            9    true
'      PIS,C/C,Age       1            9    true
'      RG SSP-SP         1            9    false
'------------------------------------------------------------------
function CalculaDigitoMod11(NumDado, NumDig, LimMult, X10)

dim Dado, Mult, Soma, Dig, i, n
    
    if X10 = false then 
        NumDig = 1
    end if
    Dado = NumDado
    for n = 1 to NumDig
        Soma = 0
        Mult = 2
        for i = Len(Dado) to 1 step -1
            Soma = Soma + Mult * (Asc(mid(Dado,i,1)) - 48)
            Mult = Mult + 1
            if Mult > LimMult then Mult = 2
        next
        if X10 = true then
            Dig = ((Soma * 10) mod 11) mod 10
        else
            Dig = Soma mod 11
            if Dig = 10 then
                Dig = "X"
            end if
        end if
        Dado = Dado & CStr(Dig)
    next
    CalculaDigitoMod11 = right(Dado, NumDig)
end function

¤ Links Relacionados:
- Veja todas as soluções do site

Gostou? Compartilhe ou comente:

Um comentário:

Antonio Lisboa
12 anos atrás
Otimoooo!

Retornar