AS EMPRESAS ESTÃO "DESESPERADAS" POR ESTE TIPO DE PROFISSIONAL... - VOCÊ É UM DELES?

MEGA FORMAÇÃO EM INFRAESTRUTURA DE TI - O Conhecimento que Vira Dinheiro - CLIQUE AQUI

Você está em: PrincipalArtigosAccess 2007 Avançado › Capítulo 1 : 26
Quer receber novidades e e-books gratuitos?
« Anterior Δ Página principal ¤ Índice Próxima »

Curso Grátis - Access 2007 Avançado, Macros e Programação VBA
Autor: Júlio Battisti
Lição 26 - Capítulo 01 - C�lculo do D�gito Verificador: CPF, CNPJ e Processos

Neste tópico aprenderemos a utilizar o VBA para criar funções de validação do DV do CPF, CNPJ e Processos (com dois ou quatro dígitos para o ano). Os algorítmos de cálculo foram publicados no Diário Oficial, Seção I, de 29/12/1999.

Nota: Os algorítmos para cálculo do DV são de domínio público, já tendo sido publicados por diversas revistas de circulação nacional e amplamente disponíveis em diversos sites da Internet.

Como calcular o DV do CPF.

Para entender o algorítmo de cálculo do CPF vamos utilizar um exemplo prático.

Considere o seguinte CPF (sem o DV):

Access 2007 Avançado - Julio Battisti

Começamos a multiplicar os dígitos do CPF, a partir da posição 9, por 2, 3, 4, 5 e assim por diante, conforme indicado na tabela a seguir:

Access 2007 Avançado - Julio Battisti

Soma-se os resultados obtidos na quarta linha da tabela anterior:

Soma1 = 30+27+24+28+24+20+20+15+10
Soma1 = 198

Faça a divisão desta soma por 11 e determino o resto da divisão:

198/11    Resulta em uma divisão exata, com resto 0

Regra:            Quando o resto é zero ou um, o DV é 0.
                        Quando o resto é diferente de zero ou um, o DV é obtido fazendo-se: 11-resto

Neste caso como o resto foi zero, o primeiro DV é zero:

DV1=0

O DV1 calculado passa a fazer parte do CPF, conforme indicado pela tabela a seguir:

Access 2007 Avançado - Julio Battisti

Agora repetimos o processo anterior, porém já considerando o DV1 como parte integrande do CPF, conforme indicado pela tabela a seguir:

Access 2007 Avançado - Julio Battisti

Somo os resultados obtidos na quarta linha da tabela anterior:

Soma2 = 33+30+27+32+28+24+25+20+15+0
Soma1 = 234

Faço a divisão desta soma por 11 e determino o resto da divisão:

234/11    Resulta em (21), com resto 3

Regra:            Quando o resto é zero ou um, o DV é 0.
                        Quando o resto é diferente de zero ou um, o DV é obtido fazendo-se: 11-resto

Neste caso como o resto foi 3, o segundo DV é :

DV2 = 11-3
DV2 = 8

Com isso o CPF, já com os dois DVs fica conforme indicado na tabela a seguir:

Access 2007 Avançado - Julio Battisti

Ou seja: 333.444.555-08

Os algorítmos para cálculo dos DVs de CNPJ e processos (dois ou quatro dígitos para o ano) são exatamente iguais. A única diferença é o número de dígitos do CNPJ ou dos processos que são diferentes do CPF.

« Anterior Δ Página principal ¤ Índice Próxima »


você conhece a universidade do access?

Universidade do Access - Curso Completo de Access
com tudo para você dominar o Access - do Básico ao
Avançado - até a Criação de Sistemas Profissionais
Completos - Passo a Passo - Tela a Tela

Capa da Universidade do Access

Aplica-se ao Access 2019, 2016, 2013 e 2010!

13 Cursos - 574 Vídeo-Aulas - 63:32 horas

Para todos os detalhes, acesse:

https://juliobattisti.com.br/universidade-do-access.asp

Quer receber novidades e e-books gratuitos?

MEGA FORMAÇÃO EM INFRAESTRUTURA DE TI

(Online, Vitalício, Prático e Atualizado)!

  • Chega de ser Ignorado pelo Mercado!

  • A vida não vai Melhorar Sozinha!

  • Quem domina infraestrutura, domina o Mercado.

  • Com esta Formação você vai Dominar o Conhecimento e torne-se o Profissional que as Empresas estão Buscando, "desesperadamente", mas não estão encontrando.

NÃO PROCURE VAGAS, SEJA PROCURADO!

 

Curso Completo de Excel - Curso Online com Certificado - 925 Vídeo Aulas - 22 Cursos - 120:42 horas

 

Para Todos os Detalhes, Acesse:

Curso Completo de Excel - Curso Online com Certificado - 925 Vídeo Aulas - 22 Cursos - 120:42 horas

 

https://juliobattisti.com.br/curso-infra-ti.asp

 

Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

Todos os direitos reservados, Júlio Battisti 2001-2026 ®

LIVRO: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2016 - CURSO COMPLETO E PRÁTICO

DOMINE A PROGRAMAÇÃO VBA NO EXCEL - 878 PÁGINAS - CLIQUE AQUI