Cáclulo do cpf

[luu 0]

preciso de ajuda ae pra calcular o cpf em vb (:

valeu (:

[Claudio Neto 3]

preciso de ajuda ae pra calcular o cpf em vb (:

valeu (:

 

Meu caro colega, por favor, antes de postar qualquer coisa, procure ajuda nos tópicos já existentes.

 

Te garanto que vai achar ajuda para isso, e não será um tópico só.

 

Abraços.

[luu 0]

jah tentei procurar cara, achei um aqui mais ta difícil de entender você poderia passar os links existentes pra mim?

vleeeu

[Claudio Neto 3]

Segue o código ai abaixo:

 

Dim arrCPF(1 To 11) As String

Dim auxCPF As Integer

 

For auxCPF = 1 To 11 Step 1

arrCPF(auxCPF) = Mid(Text1.Text, auxCPF, 1)

Next

 

If arrCPF(10) <> (((arrCPF(9) * 9 + arrCPF(8) * 8 + arrCPF(7) * 7 _

+ arrCPF(6) * 6 + arrCPF(5) * 5 + arrCPF(4) * 4 + arrCPF(3) _

* 3 + arrCPF(2) * 2 + arrCPF(1) * 1) Mod 11) Mod 10) Then

MsgBox "Há um erro no cpf informado"

End If

 

 

If arrCPF(11) <> (((Text2.Text * 9 + arrCPF(9) * 8 + arrCPF(8) * 7 _

+ arrCPF(7) * 6 + arrCPF(6) * 5 + arrCPF(5) * 4 + arrCPF(4) _

* 3 + arrCPF(3) * 2 + arrCPF(2) * 1) Mod 11) Mod 10) Then

MsgBox "Há um erro no cpf informado"

end if

 

Detalhando:

 

1° Digite em sua textbox apenas numeros, sem pontos ou traços

2° o arrCPF vai de 1 a 11, sendo que cada um receberá um digito dos quais foram digitados

3° essa fórmula maluca acima é uma fórmula realmente utilizada para definir os dígitos do cpf, que é a mesma utilizada por vários bancos para definir o dígito da conta - na primeira, ela multiplica cada numero do cpf digitado por 1, depois por 2 e assim sucessivamente, depois faz mod 11 e depois mod 10 para o primeiro dígito e depois faz tudo novamente para o segundo dígito.

 

Espero ter te ajudado, abraços...