JANコードのチェックデジットを計算するスクリプト

filemaker
  • 変数を設定$digit = 
10 -
Mod(
(
Mod ( 商品::デジット計算用 ; 10 ) +
Div( Mod( 商品::デジット計算用 ; 1000 ) ; 100 ) +
Div( Mod( 商品::デジット計算用 ; 100000 ) ; 10000 ) +
Div( Mod( 商品::デジット計算用 ; 10000000 ) ; 1000000 ) +
Div( Mod( 商品::デジット計算用 ; 1000000000 ) ; 100000000 ) +
Div( Mod( 商品::デジット計算用 ; 100000000000 ) ; 10000000000 ) +
Div( Mod( 商品::デジット計算用 ; 10000000000000 ) ; 1000000000000 )
) * 3
+
(
Div( Mod( 商品::デジット計算用 ; 100 ) ; 10 ) +
Div( Mod( 商品::デジット計算用 ; 10000 ) ; 1000 ) +
Div( Mod( 商品::デジット計算用 ; 1000000 ) ; 100000 ) +
Div( Mod( 商品::デジット計算用 ; 100000000 ) ; 10000000 ) +
Div( Mod( 商品::デジット計算用 ; 10000000000 ) ; 1000000000 ) +
Div( Mod( 商品::デジット計算用 ; 1000000000000 ) ; 100000000000 ) +
Div( Mod( 商品::デジット計算用 ; 10000000000000 ) ; 1000000000000 )
)
 ; 10 )
  • 計算結果を挿入
商品::デジット計算用 & If( $digit = 10 ; 0 ;$digit)