CPF Válido

[shumi 0]

Boa noite a todos!Estou precisando fazer meu formulário consultar se o C.P.F é válido ou não como faço?ObrigadoRodrigo Castro

[Cidre 0]

Você pode usar uma função que retorna se o cpf é valido ou não.

 

Por exemplo:

Function checkCPF(CPF)    Dim EVAR1    Dim evar2    Dim F    CPF = Replace(CPF,".","")   CPF = Replace(CPF,"-","")   If Len(Trim(CPF)) <> 11 Then 	  checkCPF = False 	  Exit Function    End If    EVAR1 = 0    For F = 1 To 9 	  EVAR1 = EVAR1 + ABS(Mid(CPF, F, 1)) * (11 - F)    Next    evar2 = 11 - (EVAR1 - (Int(EVAR1 / 11) * 11))    If evar2 = 10 Or evar2 = 11 Then evar2 = 0    If evar2 <> ABS(Mid(CPF, 10, 1)) Then 	  checkCPF = False 	  Exit Function    End If    EVAR1 = 0    For F = 1 To 10 	   EVAR1 = EVAR1 + ABS(Mid(CPF, F, 1)) * (12 - F)    Next    evar2 = 11 - (EVAR1 - (Int(EVAR1 / 11) * 11))    If evar2 = 10 Or evar2 = 11 Then evar2 = 0    If evar2 <> ABS(Mid(CPF, 11, 1)) Then 	  checkCPF = False 	  Exit Function   End If   checkCPF = True End Function