Dicas do OsmarJr

Calculando Dígitos de CPF

Verifica se os dígitos de verificação de CPF estão corretos.

Function VerificaCpf(Cpf As String) As Boolean
'Enviada ao grupo de discussão por Cesar Werneck.
'cwerneck@usa.net
'Retorna true se o DV do CPF estiver correto; false, se incorreto.
'Alterado por JR - accessjr@hotmail.com

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

Home