Ｐａｇｅ 295 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セブンチェックについて min 03/6/12(木) 0:13 ┣Re:セブンチェックについて イケガミ 03/6/12(木) 1:55 ┗Re:セブンチェックについて こうちゃん 03/6/12(木) 8:49 ┗Re:セブンチェックについて losalios 03/6/14(土) 0:08 ─────────────────────────────────────── ■題名 ： セブンチェックについて ■名前 ： min ■日付 ： 03/6/12(木) 0:13 -------------------------------------------------------------------------
| 初心者です。宜しくお願いします。 ７桁のチェックデジット（セブンチェック）をチェックするコードがありましたら、教えていただきたいのですが･･･。セブンチェックには２通りあります。下記の通りです。 1.データを7で割り、余りを求めます。（7DR） 2.さらに、7から余りを引きます。（7DSR） <計算例> (例)12345 1.12345/7=1763 余り4 チェックデジット｢4｣（7DR） 2.7-4=3 チェックデジット｢3｣（7DSR） どちらの方法でも構いませんので、使用例などがありましたらご連絡お待ちしています。 |
| >1.データを7で割り、余りを求めます。（7DR） 剰余を求めるのは、Mod 演算子 を使います。 |
| minさん、こんにちは >７桁のチェックデジット（セブンチェック）をチェックするコードがありましたら、教えていただきたいのですが･･･。セブンチェックには２通りあります。下記の通りです。 >1.データを7で割り、余りを求めます。（7DR） >2.さらに、7から余りを引きます。（7DSR） ><計算例> (例)12345 >1.12345/7=1763 余り4 チェックデジット｢4｣（7DR） >2.7-4=3 チェックデジット｢3｣（7DSR） >どちらの方法でも構いませんので、使用例などがありましたらご連絡お待ちしています。 こんな感じです・・ 詳細はHELPを確認してください。 Sub test() Dim DR As Integer Dim DSR As Integer Dim Num As Long Num = 123456 DR = Num Mod 7 DSR = 7 - DR MsgBox "7DR=[" & DR & "] 7DSR=[" & DSR & "]" End Sub |
| イケガミさん、こうちゃんさんへ お返事ありがとうございました。本日、早速試してみたところ、イケガミさんのMOD関数+こうちゃんさんのコード+その他の処理のコードで希望通りのものが出来ました。ありがとうございました。また、何かあった時は助けてください。宜しくお願い致します。 |