|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validar Codigo de Barras
|
 |
|
|
|
Postada em 23/3/2002 por Darlan Oliveira
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
|
|
|
|
|
