Domingo, 6 de Outubro de 2024
Busca no site:
Ok
Home
Links
Soluções
Utilitários
Publicações
Curiosidades
Produtos
Diversões
Apps Android
Contato
Mapa do Site
Sobre Nós
©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:
Nome:
Email:
Comentário:
Um comentário:
Antonio Lisboa
11 anos atrás
Otimoooo!
Retornar