none
eu preciso do código de validação de cpf dentro de uma função no vb RRS feed

  • Discussão Geral

  • Eu preciso validar um cpf dentro de uma função , que retornará um valor booleano, e dpois fazer uma validação no cadastro preciso disso com uma certa urgência, obg. 
    sábado, 15 de junho de 2013 22:52

Todas as Respostas

  • cole o código abaixo em um módulo:

     

    PublicFunctionValidarCPF(ByValCPF AsString) AsBoolean


           

    '--Declaração das Variáveis


           

    DimstrCPFOriginal AsString= CPF.Replace(".", "").Replace("-", "")

           

    DimstrCPF AsString= Mid(strCPFOriginal, 1, 9)

           

    DimstrCPFTemp AsString


           

    DimintSoma AsInteger


           

    DimintResto AsInteger


           

    DimstrDigito AsString


           

    DimintMultiplicador AsInteger= 10

           

    ConstconstIntMultiplicador AsInteger= 11

           

    Dimi AsInteger


           

    '--------------------------


           

    Fori = 0 TostrCPF.ToString.Length - 1

                intSoma +=

    CInt(strCPF.ToString.Chars(i).ToString) * intMultiplicador

                intMultiplicador -= 1

           

    Next


           

    If(intSoma ModconstIntMultiplicador) < 2 Then


                intResto = 0

           

    Else


                intResto = constIntMultiplicador - (intSoma

    ModconstIntMultiplicador)

           

    EndIf


            strDigito = intResto

            intSoma = 0

            strCPFTemp = strCPF & strDigito

            intMultiplicador = 11

           

    Fori = 0 TostrCPFTemp.Length - 1

                intSoma +=

    CInt(strCPFTemp.Chars(i).ToString) * intMultiplicador

                intMultiplicador -= 1

           

    Next


           

    If(intSoma ModconstIntMultiplicador) < 2 Then


                intResto = 0

           

    Else


                intResto = constIntMultiplicador - (intSoma

    ModconstIntMultiplicador)

           

    EndIf


            strDigito &= intResto

           

    IfstrDigito = Mid(strCPFOriginal, 10, strCPFOriginal.Length) Then


               

    ReturnTrue


           

    Else


               

    ReturnFalse


           

    EndIf


       

    EndFunction

    espero ter ajudado....
    sábado, 15 de junho de 2013 23:22
  • Se eu colar numa função tbem funciona?
    domingo, 16 de junho de 2013 00:28
  • cara esse const como em :

      intResto = constIntMultiplicador - (intSoma

    ModconstIntMultiplicador)

    serve pra que?, to colando no meu programinha, tem umas partes assim  variavel +=, isso esta certo msmo, ou foi um erro de digitaçaum mas obrigado, quem poder me ajudar mais um pouquinho to aceitando.

    ps : tenho que entregar esse programinha até essa sexta feira

    domingo, 16 de junho de 2013 23:19
  • o cod num funcionou cara, mas obrigado
    segunda-feira, 17 de junho de 2013 00:11
  • Aurelice Guedes Sales Furtado cpf 1800437791

    CPF: 180043

    CPF: 180043


    CPF: 180043

    sexta-feira, 6 de dezembro de 2013 20:45