|
|
|

|

|
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
|
|
|
|

|