Vérifier le calcul des chiffres Modulo 43

Calcul d'un checksum selon Modulo 43:
Un chiffre de contrôle selon Modulo 43 est utilisé par exemple par le Code 39.

Tout d'abord, les numéros de référence sont attribués à tous les caractères du code. Ces numéros de référence sont ajoutés à un total. Cette somme est divisée par 43. Le reste de cette division correspond au checksum, qui est ensuite remplacé par le caractère correspondant au numéro de référence est représenté.

Exemple de calcul :

Chiffres:	1 5 9 A Z
Numéros de référence:	1 +5 +9 +10 +35
Somme des numéros de référence:	60
Calculer checksum:	60 / 43 = 1 reste 17
Vérifier le chiffre	"H" (numéro 17)

Numéros de référence:

00 0 01 1 02 2 03 3 04 4 05 5 06 6 07 7 08 8 09 9 10 A

11 B 12 C 13 D 14 E 15 F 16 G 17 H 18 I 19 J 20 K 21 L

22 M 23 N 24 O 25 P 26 Q 27 R 28 S 29 T 30 U 31 V 32 W

33 X 34 Y 35 Z 36 - 37 . 38 Space 39 $ 40 / 41 + 42 %

Exemple de code pour calculer le checksum selon Modulo 43

Excel VBA Code pour calculer le checksum selon Modulo 43, par exemple pour le code HIBC:

' calc modulo 43
‘ returns the input string plus the check character
' demo for www.activebarcode.com
Public Function MOD43CheckChar(sValue As String) As String
    Const charSet As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"
    Dim i As Integer
    Dim T As Long
    For i = 1 To Len(Trim(UCase(sValue)))
        T = InStr(charSet, Mid(sValue, i, 1)) - 1 + T
    Next i
    MOD43CheckChar = sValue & Mid$(charSet, (T Mod 43 + 1), 1)
End Function