Discussion :

[redox1969]

merci barbibulle de votre précieuse aide mais je recherche comment calculer un clé d'un nombre entier de dix chiffre exemple
6930090005 clé 58 le calcul de la clé est comme suit:
1ére étape: 6+3+0+0+0=9*2=18
2éme étape: 9+0+9+0+5=23
3éme étape 18+23=41
clè=99-47=58
formule mathématique:
soit un entier de 10 chiffre composé comme suit a1a2a3a4a5a6a7a8a9a10
clé=99-[(2*(a1+a3+a5+a7+a9)-(a2+a4+a6+a8+a10))

[tourlourou EDIT = contenu modifié après avoir reçu les premières réponses ; à ne plus faire]

[Barbibulle]

6+3+0 = 9
ou
9 + 0 + 9 = 18

Avec une calculette ou même de tête pour les meilleurs

Sinon pouvez vous préciser sous quelle forme vous avez le nombre 693009 ? Dans une string dans un integer un float ?

Je vais supposer 9 + 0 + 9 et dans un integer.

Une solution possible serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Result := (nombre mod 100000 - nombre mod 10000) div 10000
         + (nombre mod   1000 - nombre mod   100) div   100
         + (nombre mod     10                   )

[ShaiLeTroll]

Voici un code très similaire pour l'EAN13 que j'ai écrit en 2002

L'algo est très proche, je te laisse faire la démarche d'adaptation pour ta variante
Indice :
- x2 au lieu du x3
- sans mod 10
- Array [1..10]

Si tu as un problème, fourni nous le code adapté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
//----------------------------------------------------------------------------------------------------------------
//                  Calcule la Clé de Controle d'un Code Barre de type EAN13                                     -
// Paramètres :                                                                                                  -
// - CodeBarre : Données à analyser, c'est le CodeBarre du SCANNER ou d'un OUTCOME                               -
//----------------------------------------------------------------------------------------------------------------
function CalculControlKeyOfEAN13CodeBarre(BarreCode: String): String;
var
   TabChar: Array [1..13] of Integer;
   Total, TotalPair, TotalImpair, Cle: Integer;
begin
     try
        TabChar[1]:= StrToInt (BarreCode[1]);
        TabChar[2]:= StrToInt (BarreCode[2]);
        TabChar[3]:= StrToInt (BarreCode[3]);
        TabChar[4]:= StrToInt (BarreCode[4]);
        TabChar[5]:= StrToInt (BarreCode[5]);
        TabChar[6]:= StrToInt (BarreCode[6]);
        TabChar[7]:= StrToInt (BarreCode[7]);
        TabChar[8]:= StrToInt (BarreCode[8]);
        TabChar[9]:= StrToInt (BarreCode[9]);
        TabChar[10]:= StrToInt (BarreCode[10]);
        TabChar[11]:= StrToInt (BarreCode[11]);
        TabChar[12]:= StrToInt (BarreCode[12]);
 
        TotalPair := (TabChar[2] + TabChar[4] + TabChar[6] + TabChar[8] + TabChar[10] + TabChar[12] )*3;
        TotalImpair := TabChar[1] + TabChar[3] + TabChar[5] + TabChar[7] + TabChar[9] + TabChar[11] ;
        Total:= TotalPair + TotalImpair;
 
        Cle:= (10 - (Total mod 10)) mod 10;
        result := Copy(BarreCode,1,12) + IntToStr(Cle) ;
     except
           Exit;
           result := '';
     end;
end;

[Cirec]

Salut,

ShaiLeTroll est plus rapide que moi ^^

j'ai une version un petit peu différente à proposer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function GetKey(const aValue: Int64): Byte;
var
  a: array[1..10] of Byte;
  S: string;
  I, L : Integer;
begin
  Result := 0;
  S := IntToStr(aValue);
  L := Length(S);
  if L <> 10 then Exit;
 
  for I := 1 to L do
    a[I] := Ord(S[I]) - 48;
 
  Result := 99 - (2*(a[1]+a[3]+a[5]+a[7]+a[9])+(a[2]+a[4]+a[6]+a[8]+a[10]));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  aValue: Int64 = 6930090005;
begin
  Label1.Caption := Format('Valeur : %d', [aValue]);
  Label2.Caption := Format('Clé : %d', [GetKey(aValue)]);
end;

Cordialement
@+ Cirec