JANコードのチェックデジットを計算する関数

• C11に14桁の元コードを入れる
• チェックデジット D11=

MOD(10-MOD(
MOD(QUOTIENT(C11;100000000000);10)+
MOD(QUOTIENT(C11;10000000000);10)*3+
MOD(QUOTIENT(C11;1000000000);10)+
MOD(QUOTIENT(C11;100000000);10)*3+
MOD(QUOTIENT(C11;10000000);10)+
MOD(QUOTIENT(C11;1000000);10)*3+
MOD(QUOTIENT(C11;100000);10)+
MOD(QUOTIENT(C11;10000);10)*3+
MOD(QUOTIENT(C11;1000);10)+
MOD(QUOTIENT(C11;100);10)*3+
MOD(QUOTIENT(C11;10);10)+
MOD(QUOTIENT(C11;1);10)*3
;10);10)

• JANコード E11=

C11*10+D11