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: 16/7/2007 18:29:00
nome: Júlio
email: juliokast@itelefonica.com.br
comentário:
Olá tudo bem?

O código de validação do CNPJ também serve para o VB06???, agradeçeo desde já.



Valeu!

data: 20/9/2006 01:40:00
nome: Lucas Eduardo
email: lucaserodrigues@yahoo.com.br
comentário:
Poderia me responder se este código para validação de CNPJ serve também para o VB.6.

data: 27/4/2006 22:07:00
nome: Bla
email: bla@ble.org
comentário:
Cadê a fonte oficial da informação de qual a regra de validação do cnpj? Acredito que o algoritmo esteja correto, mas é importante citar a fonte.

data: 23/11/2005 19:51:00
nome: Carlos Sales
email: carloscambe@yahoo.com.br
comentário:
Estou apreendendo a programar agora e em .net me ajudem ...

data: 14/6/2005 19:05:00
nome: Dennes
email: dennes@bufaloinfo.com.br
comentário:
A lógica serve, o código precisa ser migrado, afinal são linguagens diferentes

[]'s

Dennes

 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 (11) 3170-3056 E-mail : Contato@bufaloinfo.com.br