FUN?ÃO VALIDAR CODIGO BARRAS

RONALD.OTAVIO 21/08/2014 17:56:18
#440645

Olá a todos, encontrei este código no site da VBWeb que realiza a validação do dígito verificador.

Testei códigos ean 12 e 13. Existe no vbmania funções semelhante, porém, pelo que testei validava
somente ean13.

Espero que seja útil.

Public Function CalcBarras(cdBar)
Dim SP As Long [ô]Soma de Produtos
Dim R As Integer [ô]Resto
Dim CV As Integer [ô]Caracter Verificacao

If cdBar = [Ô][Ô] Then Exit Function
a% = 1
For i% = Len(cdBar) To 2 Step -1
If i% Mod 2 = 0 Then [ô]par
SP = SP + (Mid(cdBar, a%, 1) * 3)
Else
SP = SP + (Mid(cdBar, a%, 1) * 1)
End If
a% = a% + 1
Next i%
R = SP Mod 10
CV = IIf(R > 0, 10 - R, 0)
If CV <> Mid(cdBar, Len(cdBar), 1) Then
MsgBox [Ô]Digito verificador inválido![Ô] & Chr(13) & [Ô]([Ô] & CV & [Ô])[Ô], 48, [Ô]Atenção!![Ô]
End If
End Function