Clipper On Line • Ver Tópico - Validação de CPF

Validação de CPF

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Validação de CPF

Mensagempor Maligno » 10 Ago 2007 01:34

//**********************************************************
function ValidCPF(cCPF)
local cDigs := ""
local nSTot := 0
local d,i,k := 11
if (Len(cCPF) = 11 .and. Replicate(Left(cCPF,1),11) != cCPF)
   for d := 1 to 2
       for i := 8+d to 1 step -1
           nSTot += Val(SubStr(cCPF,i,1)) * (k-i)
       next
       cDigs += Str(if((nSTot %= 11) < 2, 0, 11-nSTot),1)
       nSTot := 0
       k++
   next
   return cDigs = Right(cCPF,2)
end
return .F.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar de usuário

Maligno
Membro Master

Membro Master
 
Mensagens: 6390
Data de registro: 06 Jul 2004 01:40
Cidade/Estado: Londrina/PR
Curtiu: 1 vez
Mens.Curtidas: 14 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 18 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro