Publicado em 26 de mar.

[Resolvido] Validação de Matrícula Dígito a Dígito

Boa tarde amigos programadores,

Criei um formulário que calcula o dígito verificador de matrículas com 8 dígitos sendo o último o dígito verificador com a ajuda de um colega também programador. Uma funcionária da minha empresa ficou satisfeita em descobrir o dígito verificador das matrículas de consumidores. Trabalhamos com várias delas todos os dias. São centenas de milhares de matrículas variadas que são analisadas ora via planilha excel, ora via documento do word, enfim... só que às vezes elas surgem mal digitadas e temos que descobrir também qual é o dígito correto em qualquer parte da matrícula.

Foi aí que surgiu a pergunta dessa colega, "e quando eu quiser descobrir qual é o dígito que falta no meio da matrícula ou quando o sistema acusa como matrícula incorreta e você tem que descobrir qual é o dígito que está errado?

Partindo dessa premissa eu dei uma retocada nesse programa e o código ficou assim no módulo (modMatricula):

Public Function ValidarMatricula(Matricula As Variant) As Boolean

On Error Resume Next

Dim Dig1, Dig2, Dig3, Dig4, Dig5, Dig6, Dig7, Dig8 As Long

Dim Soma, Soma1, DigVer As Integer

Dim ChkDig1, ChkDig2, ChkDig3, ChkDig4, ChkDig5, ChkDig6, ChkDig7, ChkDig8 As Boolean

Dim strMsg As String

Dim txtMatricula As String

Dim Total, Total1, Total2, Total3, Total4, Total5, Total6, Total7, Total8 As Integer

'1490154-2

Matricula = Format(Matricula, "00000000")

'Pega os digitos verificador da cadeia

DigVer = Right(Matricula, 1)

'Multiplica cada digito da cadeia pelo coeficiente crescente

Dig1 = Mid(Matricula, 8, 1) * 2

Dig2 = Mid(Matricula, 7, 1) * 3

Dig3 = Mid(Matricula, 6, 1) * 4

Dig4 = Mid(Matricula, 5, 1) * 5

Dig5 = Mid(Matricula, 4, 1) * 6

Dig6 = Mid(Matricula, 3, 1) * 7

Dig7 = Mid(Matricula, 2, 1) * 8

Dig8 = Mid(Matricula, 1, 1) * 9

'Soma os valores dos digitos já multiplicados

Soma = (Dig1) + (Dig2) + (Dig3) + (Dig4) + (Dig5) + (Dig6) + (Dig7) + (Dig8)

'Divide a Soma por 11

Soma1 = Soma Mod 11

'Multiplica cada digito da cadeia pelo coeficiente decrescente

Dig1 = Mid(Matricula, 7, 1) * 8

Dig2 = Mid(Matricula, 6, 1) * 7

Dig3 = Mid(Matricula, 5, 1) * 6

Dig4 = Mid(Matricula, 4, 1) * 5

Dig5 = Mid(Matricula, 3, 1) * 4

Dig6 = Mid(Matricula, 2, 1) * 3

Dig7 = Mid(Matricula, 1, 1) * 2

Total = (Dig1) + (Dig2) + (Dig3) + (Dig4) + (Dig5) + (Dig6) + (Dig7)

'Divide o Total por 11

Total1 = Total Mod 11 ' digito verificador

'Divide o Total por valores decrescentes

Total2 = Total Mod 10 ' 7º digito

Total3 = Total Mod 9 ' 6º dígito

Total4 = Total Mod 8 ' 5º digito

Total5 = Total Mod 7 ' 4º digito

Total6 = Total Mod 6 ' 3º digito

Total7 = Total Mod 5 ' 2º digito

Total8 = Total Mod 4 ' 1º digito

If Not IsNull(Forms!GeraMatricula!txtMatricula.Text) And (Forms!GeraMatricula!ChkDig1) Then

strMsg = strMsg & vbCrLf & vbCrLf