|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar CPF
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Public Function isCPF(ByVal pCPF As String) As Boolean
Dim Conta As Integer, Soma As Integer, Resto As Integer, Passo As Integer
isCPF = False: pCPF = Trim(pCPF)
If Len(pCPF) <> 11 Then
Exit Function
End If
For Passo = 11 To 12
Soma = 0
For Conta = 1 To Passo - 2
Soma = Soma + Val(Mid(pCPF, Conta, 1)) * (Passo - Conta)
Next
Resto = 11 - (Soma - (Int(Soma / 11) * 11))
If Resto = 10 Or Resto = 11 Then Resto = 0
If Resto <> Val(Mid(pCPF, Passo - 1, 1)) Then
Exit Function
End If
Next
isCPF = True
End Function
|
|
|
|
|
