... Assinatura do site por 2 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$125,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Como calcular dígito verificador EAN14

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

Envie seu comentário: