Retira do www.deephi.rg3.net
Começando da direita para a esquerda, multiplique os números das posições
ímpares por 3 e os números das posições pares por
1. Divida por 10.
O dígito de controle será a subtração de 10 pelo resto da equação. Se o
resto for 0, o dígito de controle será 0.
Exemplo:
7 8 9 1 0 0 0 1 0 0 1 0 - 3
(Da direta para a esquerda) - ( 0x3 + 1x1 + 0x3 + 0x1 + 1x3 + 0x1 + 0x3 +
0x1 + 1x3 + 9x1 + 8x3 + 7x1) = 47
47 / 10 = 4 e o resto = 7
Calculando 10 - 7 = 3
O mesmo cálculo é para o EAN8, conforme exemplo abaixo:
7 8 9 7 6 5 4 - 1
(4x3 + 5x1 + 6x3 + 7x1 + 9x3 + 8x1 + 7x3) = 98
98 / 10 = 9 e o resto = 8
Dígito controle = 10 - 8 = 2
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
-------o0Oo-(_)-oO0o-------
Precisando de dicas?
www.deephi.hpg.com.br
---------------------------
Mais de 30000 downloads
---------ooO---Ooo---------
----- Original Message -----
From: "Licerio Neto" <[EMAIL PROTECTED]>
To: "delphi-br" <[EMAIL PROTECTED]>
Cc: "delphi-lista" <[EMAIL PROTECTED]>; "delphi-no-brasil"
<[EMAIL PROTECTED]>; "delphi-total"
<[EMAIL PROTECTED]>; "delphi_linhadecodigo"
<[EMAIL PROTECTED]>; "DELPHI_SOPROGRAMADORES"
<[EMAIL PROTECTED]>; "lista-delphi"
<[EMAIL PROTECTED]>
Sent: Monday, September 27, 2004 5:41 PM
Subject: [delphi-br] Quem trabalha com Codigo de barras ???
Utilizo Delphi 5 com Paradox...
Preciso de uma funcao q verifique se um codigo de barra padrao EAN-13 é
valido ???? Alguem tem e pode mim fornecer, por favor....
Grato...
---------------------------------
Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão. Instale
agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
----
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
