タグ

vbaとcheckdigitに関するgouei2001のブックマーク (1)

  • モジュラス11のチェックデジット

    右から数えて、1番目の数は2倍、2番目の数は3倍、…、6番目の数は7倍とします。7番目の数は2倍、8番目の数は3倍として以下、繰り返し、これらを合計します。 合計を11で割ったあまりを求めます。 あまりが0のときは「0」、0以外のときは「11-あまり」がチェックデジットとなります。 JavaScriptVBAでサンプルを作ってみました。 JavaScript function checkdigit_m11(txt) { //チェックデジット(モジュラス11ウェイト2-7) var s = 0, i; for (i = 0; i < txt.length; i += 1) { s += txt.substr(txt.length - i - 1, 1) * (i % 6 + 2); } return s % 11 === 0 ? 0 : 11 - s % 11; } Function ch

    モジュラス11のチェックデジット
  • 1