Validação de CPF e CNPJ ( CGC ) no Visual Basic

Como fazer a valida��o de CPF e CNPJ ( CGC ): Nesta fun��o explicamos como fazer a valida��o de CPF e CNPJ ( CGC ) no Visual Basic.Function Fu_consistir_CgcCpf (Vl_CgcCpf As String) ' Esta Rotina Devolver� True Se o Cgc/Cpf Informado For valido ' ou False Se o Cgc/Cpf N�o For Correto ' Para Chamar esta Rotina de Consist�ncia ' 1 ) Atribuir o valor do CgcCpf a uma Variavel String ' 2 ) Chamar a Rotina com : Fu_consistir_CgcCpf (Variavel) ' Uma Forma Simples de fazer a Consistencia ' � Copiando as linhas abaixo (exemplo) ' para dentro do Programa ' Dim Vl_CgcCpf As String ' Vl_CgcCpf = Me.CgcCpf.Text ' If Fu_consistir_CgcCpf(Vl_CgcCpf) = False then ' MsgBox "( Cgc/Cpf Informado N�o � um Cgc/Cpf Correto )" ' Me.CgcCpf.SetFocus ' Exit Sub ' End if Fu_consistir_CgcCpf = False Dim VA_CgcCpf As String Dim VA_Digito As String Static Numero(15) As Integer Dim VA_Resto As Integer Dim VA_Resultado As Integer Dim VA_SomaDigito10 As Integer Dim VA_resto1 As Integer VA_CgcCpf = Format(Vl_CgcCpf, "@@@@@@@@@@@@@@") VA_Digito = Mid(VA_CgcCpf, 13, 2) Numero(1) = Val(Mid(VA_CgcCpf, 1, 1)) Numero(2) = Val(Mid(VA_CgcCpf, 2, 1)) Numero(3) = Val(Mid(VA_CgcCpf, 3, 1)) Numero(4) = Val(Mid(VA_CgcCpf, 4, 1)) Numero(5) = Val(Mid(VA_CgcCpf, 5, 1)) Numero(6) = Val(Mid(VA_CgcCpf, 6, 1)) Numero(7) = Val(Mid(VA_CgcCpf, 7, 1)) Numero(8) = Val(Mid(VA_CgcCpf, 8, 1)) Numero(9) = Val(Mid(VA_CgcCpf, 9, 1)) Numero(10) = Val(Mid(VA_CgcCpf, 10, 1)) Numero(11) = Val(Mid(VA_CgcCpf, 11, 1)) Numero(12) = Val(Mid(VA_CgcCpf, 12, 1)) Numero(13) = Val(Mid(VA_CgcCpf, 13, 1)) Numero(14) = Val(Mid(VA_CgcCpf, 14, 1)) If Len(Trim(Vl_CgcCpf)) > 11 Then ' Cgc VA_Resultado = Numero(1) * 2 If VA_Resultado > 9 Then VA_SomaDigito10 = VA_Resultado + 1 Else VA_SomaDigito10 = VA_Resultado End If VA_Resultado = Numero(3) * 2 If VA_Resultado > 9 Then VA_SomaDigito10 = VA_SomaDigito10 + VA_Resultado + 1 Else VA_SomaDigito10 = VA_SomaDigito10 + VA_Resultado End If VA_Resultado = Numero(5) * 2 If VA_Resultado > 9 Then VA_SomaDigito10 = VA_SomaDigito10 + VA_Resultado + 1 Else VA_SomaDigito10 = VA_SomaDigito10 + VA_Resultado End If VA_Resultado = Numero(7) * 2 If VA_Resultado > 9 Then VA_SomaDigito10 = VA_SomaDigito10 + VA_Resultado + 1 Else VA_SomaDigito10 = VA_SomaDigito10 + VA_Resultado End If VA_SomaDigito10 = VA_SomaDigito10 + Numero(2) + Numero(4) + Numero(6) If Mid(Str(VA_SomaDigito10), Len(Str(VA_SomaDigito10)), 1) = "0" Then VA_Resto = 0 Else VA_Resto = 10 - Val(Mid(Str(VA_SomaDigito10), _ Len(Str(VA_SomaDigito10)), 1)) End If If VA_Resto <> Numero(8) Then Exit Function End If VA_Resultado = (Numero(1) * 5) + (Numero(2) * 4) _ + (Numero(3) * 3) + (Numero(4) * 2) _ + (Numero(5) * 9) + (Numero(6) * 8) + _ (Numero(7) * 7) + (Numero(8) * 6) + _ (Numero(9) * 5) + (Numero(10) * 4) + _ (Numero(11) * 3) + (Numero(12) * 2) ' Atribui para resto o resto da divis�o ' de VA_resultado dividido por 11 VA_Resto = VA_Resultado Mod 11 If VA_Resto < 2 Then VA_resto1 = 0 Else VA_resto1 = 11 - VA_Resto End If If VA_resto1 <> Numero(13) Then Exit Function End If VA_Resultado = (Numero(1) * 6) + _ (Numero(2) * 5) + (Numero(3) * 4) + _ (Numero(4) * 3) + (Numero(5) * 2) + _ (Numero(6) * 9) + (Numero(7) * 8) + _ (Numero(8) * 7) + (Numero(9) * 6) + _ (Numero(10) * 5) + (Numero(11) * 4) + _ (Numero(12) * 3) + (Numero(13) * 2) ' Atribui para resto o resto da divis�o ' de VA_resultado dividido por 11 VA_Resto = VA_Resultado Mod 11 If VA_Resto < 2 Then VA_resto1 = 0 Else VA_resto1 = 11 - VA_Resto End If If VA_resto1 <> Numero(14) Then Exit Function End If Else ' Cpf VA_Resultado = (Numero(4) * 1) + _ (Numero(5) * 2) + (Numero(6) * 3) _ + (Numero(7) * 4) + (Numero(8) * 5) _ + (Numero(9) * 6) + (Numero(10) * 7)_ + (Numero(11) * 8) + (Numero(12) * 9) VA_Resto = VA_Resultado Mod 11 If VA_Resto > 9 Then VA_resto1 = VA_Resto - 10 Else VA_resto1 = VA_Resto End If If VA_resto1 <> Numero(13) Then Exit Function End If VA_Resultado = (Numero(5) * 1) _ + (Numero(6) * 2) + (Numero(7) * 3) _ + (Numero(8) * 4) + (Numero(9) * 5) + _ (Numero(10) * 6) + (Numero(11) * 7) + _ (Numero(12) * 8) + (VA_Resto * 9) VA_Resto = VA_Resultado Mod 11 If VA_Resto > 9 Then VA_resto1 = VA_Resto - 10 Else VA_resto1 = VA_Resto End If If VA_resto1 <> Numero(14) Then Exit Function End If End If Fu_consistir_CgcCpf = True End Function

Confira outros conte�dos:

Teste unit�rio com NUnit

Como migrar projetos do ASP.NET MVC...

Crie relat�rios com o Stimulsoft...

Assista grátis a nossa aula inaugural

Perguntas frequentes

Quem somos?

Por que a programação se tornou a profissão mais promissora da atualidade?

Como faço para começar a estudar?

Em quanto tempo de estudo vou me tornar um programador?

Sim, você pode se tornar um programador e não precisa ter diploma de curso superior!

O que eu irei aprender estudando pela DevMedia?

Principais diferenciais da DevMedia

Qual o investimento financeiro que preciso fazer para me tornar um programador?

Como funciona a forma de pagamento da DevMedia?

Por Devmedia Em 2006

Nossos casos de sucesso

Leonardo Carlos

Eu sabia pouqu�ssimas coisas de programa��o antes de come�ar a estudar com voc�s, fui me especializando em v�rias �reas e ferramentas que tinham na plataforma, e com essa bagagem consegui um est�gio logo no in�cio do meu primeiro per�odo na faculdade.

Lucas Rodrigues

Estudo aqui na Dev desde o meio do ano passado! Nesse per�odo a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta � continuar estudando e praticando para ser um Full-Stack Dev!

Her�clito J�nior

Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma � bem intuitiva e muuuuito did�tica a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!

Julio Cablen

Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda n�o tinha visto. A did�tica � do jeito que qualquer pessoa consegue aprender. S�rio, to apaixonado, adorando demais.

Joelberth Sena

Adquiri o curso de voc�s e logo percebi que s�o os melhores do Brasil. � um passo a passo incr�vel. S� n�o aprende quem n�o quer. Foi o melhor investimento da minha vida!

Felipe Nunes

Foi um dos melhores investimentos que j� fiz na vida e tenho aprendido bastante com a plataforma. Voc�s est�o fazendo parte da minha jornada nesse mundo da programa��o, irei assinar meu contrato como programador gra�as a plataforma.

Wanderson Oliveira

Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exerc�cios pr�ticos que n�o tem como n�o aprender, est�o de parab�ns!

Jos� Lucas

Obrigado DevMedia, nunca presenciei uma plataforma de ensino t�o presente na vida acad�mica de seus alunos, parab�ns!

Eduardo Dorneles

Aprendi React na plataforma da DevMedia h� cerca de 1 ano e meio... Hoje estou h� 1 ano empregado trabalhando 100% com React!

Adauto Junior

J� fiz alguns cursos na �rea e nenhum � t�o bom quanto o de voc�s. Estou aprendendo muito, muito obrigado por existirem. Est�o de parab�ns... Espero um dia conseguir um emprego na �rea.

Ver todos os casos de sucesso

Valida��o de CPF e CNPJ ( CGC ) no Visual Basic

Veja nesta dica como fazer a valida��o de CPF e CNPJ ( CGC ):