Como calcular dígito verificador EAN14
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Caco:
Bom dia! Existe algum código para calcular o dígito verificador de
Códigos de Barras EAN14 ?
Desde já agradeço a colaboração.
Suporte:
Caco, neste link abaixo tem a regra para o cálculo.
http://www.activebarcode.com/codes/checkdigit/modulo10.html
Montei o código abaixo, baseado nesta regra:
Public Function fncCalculaDv(CodEan14) As Byte
Dim j As Byte
Dim t(2) As Integer
For j = 1 To 13
If j Mod 2 = 0 Then
' Soma os valores da posição par
t(0) = t(0) + Mid(CodEan14, j, 1)
Else
'Soma os valores da posição ímpar
t(1) = t(1) + Mid(CodEan14, j, 1)
End If
Next
If ((t(0) + (t(1) * 3)) Mod 10) = 0 Then
fncCalculaDv = 0
Else
fncCalculaDv = 10 - ((t(0) + (t(1) * 3)) Mod 10)
End If
End Function
Testando:
fncCalculaDv(1234567890123) :::> 1
fncCalculaDv(9876543210987) :::> 9
Usuário Caco:
Valeu Avelino. Testei aqui e ficou 100%. Muito obrigado pela ajuda.
Não há comentário |