חישוב ספרת ביקורת של Modulo 43

Modulo 43

חישוב בדיקת סיכום לפי מודולו 43:
ספרת ביקורת על פי מודולו 43 משמשת, למשל, בקוד 39.

ראשית, מספרי התייחסות מוקצים לכל התווים בקוד. מספרי התייחסות אלה מתווספים לסך הכל. סכום זה מחולק ב-43. השארית של חלוקה זו תואמת את בדיקת הסיכום, אשר מוחלפת לאחר מכן על ידי התו המתאים למספר הייחוס המיוצג.

דוגמה לחישוב:

ספרות:	1 5 9 A Z
מספרי התייחסות:	1 +5 +9 +10 +35
סכום מספרי הייחוס:	60
חשב את סכום הבדיקה:	60 / 43 = 1 יתרה 17
ספרת ביקורת	"H" (מספר התייחסות 17)

מספרי התייחסות:

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 %

דוגמת קוד לחישוב בדיקת הסיכום לפי מודולו 43

קוד VBA של Excel לחישוב בדיקת הסיכום לפי מודולו 43, לדוגמה עבור קוד 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