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 CPF
Postada em 27/1/2004 por messohal            
    Public Function ValidaCPF(ByVal CPF As String) As Boolean
        Dim i, a, n1, n2 As Integer        

        CPF = Trim(CPF)
        If CPF = "" OrElse _
            Len(CPF) <> 14 OrElse _
            CPF = "111.111.111-11" OrElse _
            CPF = "222.222.222-22" OrElse _
            CPF = "333.333.333-33" OrElse _
            CPF = "444.444.444-44" OrElse _
            CPF = "555.555.555-55" OrElse _
            CPF = "666.666.666-66" OrElse _
            CPF = "777.777.777-77" OrElse _
            CPF = "888.888.888-88" OrElse _
            CPF = "999.999.999-99" Then
            Return False
        End If

        'remove maskara
        CPF = Mid(CPF, 1, 3) & Mid(CPF, 5, 3) & Mid(CPF, 9, 3) & Mid(CPF, 13)

        For a = 0 To 1
            n1 = 0
            For i = 1 To 9 + a
                n1 = n1 + Val(Mid(CPF, i, 1)) * (11 + a - i)
            Next
            n2 = 11 - (n1 - (Int(n1 / 11) * 11))
            If n2 = 10 Or n2 = 11 Then n2 = 0
            If n2 <> Val(Mid(CPF, 10 + a, 1)) Then
                Return False
            End If
        Next
        Return True

    End Function

Abraços!!

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