Resumen Dígito control EAN 13 (código de barras)

Mensaje enviado por "Francisco" <starback@infonegocio.com> el 14/05/2002

Hola Alberto,

Te paso la función para calcular el dígito de control pero no entiendo qué es el inicio y el fin de un código de barras.

Un Saludo.
Francisco.

Function CalcularDigitoControl(Origen As Double) As String

Dim WNúmero As Double
Dim Valor As Double
Dim LongitudTotal As Double
Dim LongitudTotal2 As Double
Dim Posición As Double
Dim PosiciónTotal As Double
Dim PosiciónRelativa As Double
Dim Parcial As Double
Dim TotalParciales As Double
Dim DígitoControl As Double
Dim DS As Double

TotalParciales = 0
WNúmero = Origen
Posición = 12
PosiciónRelativa = 1

Do Until Posición = 0
    Valor = CDbl(Mid(WNúmero, Posición, 1))
    Parcial = 0

    If PosiciónRelativa = 0 Or PosiciónRelativa = 2 Or PosiciónRelativa = 4 Or PosiciónRelativa = 6 Or PosiciónRelativa = 8 Or PosiciónRelativa = 10 Or PosiciónRelativa = 12 Then
    'PAR
        Parcial = (Valor * 1)
    End If

    If PosiciónRelativa = 1 Or PosiciónRelativa = 3 Or PosiciónRelativa = 5 Or PosiciónRelativa = 7 Or PosiciónRelativa = 9 Or PosiciónRelativa = 11 Then
    'INPAR
        Parcial = (Valor * 3)
    End If

    TotalParciales = TotalParciales + Parcial
    Posición = Posición - 1
    PosiciónRelativa = PosiciónRelativa + 1
Loop

LongitudTotal2 = Len("" & TotalParciales & "")

If CDbl(Mid(TotalParciales, LongitudTotal2, 1)) = 0 Then
    DígitoControl = 0
Else
    DS = TotalParciales

    Do Until CDbl(Mid(DS, LongitudTotal2, 1)) = 0
    DS = DS + 1
    Loop

    DígitoControl = DS - TotalParciales
End If

CalcularDigitoControl = Format$(WNúmero & DígitoControl, "0000000000000")

End Function

-----Mensaje original-----
De: Alberto Viladés Laborda [mailto:avl@nuprotec.com]
Enviado el: lunes, 13 de mayo de 2002 17:23
Para: visualbasic-esp@yahoogroups.com
Asunto: (VB-ESP) EAN 13, codigo de barras


Alguno de vosotros sabe como sacar el digito de control y el inicio y final de un codigo de barras, ya tengo la fuente.

Gracias y un saludo



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com