|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar CNPJ
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Public Function isCNPJ(ByVal pCNPJ As String) As Boolean
Dim Conta As Integer, Soma As Long, Passo As Integer
Dim Digito1 As Integer, Digito2 As Integer, Flag As Integer
isCNPJ = False: pCNPJ = Trim(pCNPJ)
If Len(pCNPJ) <> 14 Then
Exit Function
End If
For Passo = 5 To 6
Soma = 0
Flag = Passo
For Conta = 1 To Passo + 7
Soma = Soma + (Val(Mid(pCNPJ, Conta, 1)) * Flag)
Flag = IIf(Flag > 2, Flag - 1, 9)
Next
Soma = Soma Mod 11
If Passo = 5 Then Digito1 = IIf(Soma > 1, 11 - Soma, 0)
If Passo = 6 Then Digito2 = IIf(Soma > 1, 11 - Soma, 0)
Next
If (Digito1 = Val(Mid(pCNPJ, 13, 1)) And Digito2 = Val(Mid(pCNPJ, 14, 1))) Then
isCNPJ = True
End If
End Function
|
|
|
|
|
