USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (Validações)

Título da Dica:  Validação de CNPJ em VB.net
Postada em 27/1/2004 por messohal            
     Function ValidaCNPJ(ByVal CGC As String) As Boolean
        Dim RecebeCNPJ, Numero(14), soma, resultado1, resultado2
        RecebeCNPJ = CGC
        If Len(RecebeCNPJ) <> 14 Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "00000000000000" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "11111111111111" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "22222222222222" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "33333333333333" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "44444444444444" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "55555555555555" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "66666666666666" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "77777777777777" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "88888888888888" Then
            ValidaCNPJ = False
        ElseIf RecebeCNPJ = "99999999999999" Then
            ValidaCNPJ = False
        Else
            Numero(1) = CInt(Mid(RecebeCNPJ, 1, 1))
            Numero(2) = CInt(Mid(RecebeCNPJ, 2, 1))
            Numero(3) = CInt(Mid(RecebeCNPJ, 3, 1))
            Numero(4) = CInt(Mid(RecebeCNPJ, 4, 1))
            Numero(5) = CInt(Mid(RecebeCNPJ, 5, 1))
            Numero(6) = CInt(Mid(RecebeCNPJ, 6, 1))
            Numero(7) = CInt(Mid(RecebeCNPJ, 7, 1))
            Numero(8) = CInt(Mid(RecebeCNPJ, 8, 1))
            Numero(9) = CInt(Mid(RecebeCNPJ, 9, 1))
            Numero(10) = CInt(Mid(RecebeCNPJ, 10, 1))
            Numero(11) = CInt(Mid(RecebeCNPJ, 11, 1))
            Numero(12) = CInt(Mid(RecebeCNPJ, 12, 1))
            Numero(13) = CInt(Mid(RecebeCNPJ, 13, 1))
            Numero(14) = CInt(Mid(RecebeCNPJ, 14, 1))
            soma = 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
            soma = soma - (11 * (Int(soma / 11)))
            If soma = 0 Or soma = 1 Then
                resultado1 = 0
            Else
                resultado1 = 11 - soma
            End If
            If resultado1 = Numero(13) Then
                soma = 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
                soma = soma - (11 * (Int(soma / 11)))
                If soma = 0 Or soma = 1 Then
                    resultado2 = 0
                Else
                    resultado2 = 11 - soma
                End If
                If resultado2 = Numero(14) Then
                    ValidaCNPJ = True
                Else
                    ValidaCNPJ = False
                End If
            Else
                ValidaCNPJ = False
            End If
        End If
    End Function

ABRAÇOSSSSSSSSSSS

Emerson Silva
.net Developer
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página