Validando CPF

[neila 0]

Oi galera, to precisando da programação pra validar um CPF num MaskEdit, alguem pode me ajudar???Por Favor??

 

Valeu! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

rzt@zipmail.com.br

[Claudio Neto 3]

tenho algo que se vai adorar, mas não o tenho em mãos agora, te mando segunda feira sem falta...

[scorpio 7]

achei uma funçao pra valida....

 

'Num módulo:Public Function FU_ValidaCPF(CPF As String) As Boolean  Dim soma As Integer  Dim Resto As Integer  Dim i As Integer  'Valida argumento  If Len(CPF) <> 11 Then    FU_ValidaCPF = False    Exit Function  End If  soma = 0  For i = 1 To 9    soma = soma + Val(Mid$(CPF, i, 1)) * (11 - i)  Next i  Resto = 11 - (soma - (Int(soma / 11) * 11))  If Resto = 10 Or Resto = 11 Then Resto = 0  If Resto <> Val(Mid$(CPF, 10, 1)) Then    FU_ValidaCPF = False    Exit Function  End If  soma = 0  For i = 1 To 10    soma = soma + Val(Mid$(CPF, i, 1)) * (12 - i)  Next i  Resto = 11 - (soma - (Int(soma / 11) * 11))  If Resto = 10 Or Resto = 11 Then Resto = 0  If Resto <> Val(Mid$(CPF, 11, 1)) Then    FU_ValidaCPF = False    Exit Function  End If  FU_ValidaCPF = TrueEnd Function'P/ chamar:Dim RET as BooleanRET = FU_ValidaCPF "518.284.565-28" 'É APENAS um Exemplo!If RET = True Then  'O CGC é válidoElse  'O CGC NÃO é válidoEnd If

 

 

peguei esse código do site http://www.silicio.com.br/vb/dicas/

 

 

 

ve se isso ajuda....flw

 

 

 

 

http://forum.imasters.com.br/public/style_emoticons/default/searchbeforeposting.gif