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