Dicas do OsmarJr
Calculando Dígitos de CPF
Verifica se os dígitos de verificação de CPF estão corretos.
'Enviada ao grupo de discussão por Cesar Werneck.
'[email protected]
'Retorna true se o DV do CPF estiver correto; false, se incorreto.
'Alterado por JR - [email protected]
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim dv1 As Integer
Dim dv2 As Integer
For i = 1 To 9
a = a + Mid(Cpf, i, 1) * (11 - i)
b = b + Mid(Cpf, i, 1) * (12 - i)
Next i
dv1 = IIf((11 - (a Mod 11)) >= 10, 0, (11 - (a Mod 11)))
b = b + (dv1 * 2)
dv2 = IIf((11 - (b Mod 11)) >= 10, 0, (11 - (b Mod 11)))
VerificaCpf = (Mid(Cpf, 10, 2) = dv1 & dv2)
End Function