Validando CPF Usando VB 2008 "ORCAS"

[ander 2]

Validando CPF Usando VB 2008 "ORCAS"

Visual Basic .NET

 

'Essa função ja foi postada pelo Israel Aéce.

'Só que a função havia incompatibilidade com o VB 2008

'Abaixo é só copiar e colar no seu projeto...

 

'Exemplo para chamar a função...

 

'If MaskTextBox1.Text.Length = 14 Then

' If VerificaCPF(MaskTextBox1.Text) = True Then

' O CPF digitado é válido e pula automaticamente para o próximo campo

' MaskTextBox2.Focus()

' Else

' O CPF digitado não é válido e automaticamente limpa o campo

' MsgBox("CPF digitado não é valido!")

' MaskTextBox1.Clear()

' End if

'Else

' MsgBox("O CPF tem que ter 11 dígitos")

'End if

 

Function VerificaCPF(ByVal strCPFCliente As String) As Boolean

MsgBox("CPF digitado é valido!")

'--Declaração das Variáveis

Dim strCPFOriginal As String = strCPFCliente.Replace(".", "").Replace("-", "").Replace(",", "")

Dim strCPF As String = Mid(strCPFOriginal, 1, 9)

Dim strCPFTemp As String

Dim intSoma As Integer

Dim intResto As Integer

Dim strDigito As String

Dim intMultiplicador As Integer = 10

Const constIntMultiplicador As Integer = 11

Dim i As Integer

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

 

For i = 0 To strCPF.ToString.Length - 1

intSoma += CInt(strCPF.ToString.Chars(i).ToString) * intMultiplicador

intMultiplicador -= 1

Next

 

If (intSoma Mod constIntMultiplicador) < 2 Then

intResto = 0

Else

intResto = constIntMultiplicador - (intSoma Mod constIntMultiplicador)

End If

 

strDigito = intResto

intSoma = 0

 

strCPFTemp = strCPF & strDigito

intMultiplicador = 11

 

For i = 0 To strCPFTemp.Length - 1

intSoma += CInt(strCPFTemp.Chars(i).ToString) * intMultiplicador

intMultiplicador -= 1

Next

 

If (intSoma Mod constIntMultiplicador) < 2 Then

intResto = 0

Else

intResto = constIntMultiplicador - (intSoma Mod constIntMultiplicador)

End If

 

strDigito &= intResto

 

If strDigito = Mid(strCPFOriginal, 10, strCPFOriginal.Length) Then

Return True

Else

Return False

End If

 

End Function

 

 

Creditos o0JiM0o

post ander