PROCEDURE calculControleEAN13(_codeInitial)
temp est un entier
sommePair, sommeImpair sont des entiers
z est un entier
m est un entier
controle est un entier
chaineControle est une chaîne
i est un entier
pour i=1 à Taille(_codeInitial)
temp = val( _codeInitial[[i]] )
SI EstPair(i) ALORS
sommePair += temp
SINON
sommeImpair += (temp * 3)
FIN
FIN
z = sommeImpair + sommePair
m = modulo(z,10)
controle = 10 - m
chaineControle = controle
RENVOYER chaineControle
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3558&post_id=15010