Validação de CIC / CPF

[RLF 0]

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

E ai, beleza??? Bom, alguém poseria me passar aquela rotininha que verifica se o CPF/CIC digitado é válido ou não!!!!

 

Valew!!!! http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[AndersonDutra 4]

aí vai:

'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

Eu pegue esse código no http://www.silicio.com.br/, de uma olhada lá que tem muita coisa na parte de validações.

Certo! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Luizgrs 0]

Qual seria a lógica da validação de CPF, o que que diferencia um verdadeiro?

[RLF 0]

Qual seria a lógica da validação de CPF, o que que diferencia um verdadeiro?

<{POST_SNAPBACK}>

è isso mesmo!!!!