Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
624
Assunto : .NET
Titulo: Validação de CNPJ

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Alguns algorítimos são de uso muito comum e frequente, para esses é comum utilizarmos a velha técnica do copy/past

Um deles é o de validação de CNPJ. Segue então um código de validação de CNPJ em VB.NET .

Esse código pode ser utilizado, por exemplo, em um customValidator de uma aplícação web.

Public Function IsCNPJ(ByVal strCNPJ As String) As Boolean

IsCNPJ = False

Dim a, j, d1, d2 As Double
Dim i As Integer

If Len(strCNPJ) <> 14 Then
IsCNPJ = False
Exit Function
End If

If Not IsOnlyNumber(strCNPJ) Then
IsCNPJ = False
Exit Function
End If

a = 0
i = 0
d1 = 0
d2 = 0
j = 5
For i = 1 To 12 Step 1
a = a + (Val(Mid(strCNPJ, i, 1)) * j)
j = Convert.ToDouble(IIf(j > 2, j - 1, 9))
Next i
a = a Mod 11
d1 = Convert.ToDouble(IIf(a > 1, 11 - a, 0))
a = 0
i = 0
j = 6
For i = 1 To 13 Step 1
a = a + (Val(Mid(strCNPJ, i, 1)) * j)
j = Convert.ToDouble(IIf(j > 2, j - 1, 9))
Next i
a = a Mod 11
d2 = Convert.ToDouble(IIf(a > 1, 11 - a, 0))
If (d1 = Val(Mid(strCNPJ, 13, 1)) And d2 = Val(Mid(strCNPJ, 14, 1)))
Then
IsCNPJ = True
Else
IsCNPJ = False
End If

End Function


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 1/31/2017 1:10:00 PM
nome: plHkEcdmUBHU
email: derby451@hotmail.com
comentário:
N4sEIa http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 11:04:00 AM
nome: lcgSzOKcuMfX
email: derby451@hotmail.com
comentário:
LhDWHE http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 1/29/2017 11:01:00 AM
nome: NHQoMTFpVMVZyksydz
email: jogcbfn@hotmail.com
comentário:
4dYtTo http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com

data: 12/30/2016 1:04:00 PM
nome: otxSfrfdaAaqpSJGz
email: jfvynms4281rt@hotmail.com
comentário:
QZ8MHK http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 7:13:00 PM
nome: vnlETdxzbbvNB
email: jimos4581rzt@hotmail.com
comentário:
BJwcdL http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br