Verifique o cálculo do dígito de Modulo 43

Esta é uma descrição do cálculo de dígitos de verificação de acordo com Modulo 43.

Cálculo de um checkum de acordo com modulo 43:
Um dígito de verificação de acordo com modulo 43 é usado por exemplo pelo código 39.

Primeiro, os números de referência são atribuídos a todos os caracteres do código. Esses números de referência são adicionados a um total. Esta soma é dividida por 43. O resto desta divisão corresponde ao checkum, que é então substituído pelo personagem correspondente ao número de referência está representado.

Um exemplo de cálculo:

Dígitos: 1 5 9 A Z
Números de referência: 1 +5 +9 +10 +35
Soma dos números de referência: 60
Calcule checkum: 60 / 43 = 1 Restante 17
Dígito da verificação "H" (Número de referência 17)

Números de referência:
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 %


Exemplo do código para calcular o checkum de acordo com modulo 43

Excel Código VBA para calcular o checkum de acordo com Modulo 43, por exemplo, para o código 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