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