投稿者 okigaru | 2015/09/12

郵便番号バーコードのチェックデジット

Let ( [
#〒 = Substitute ( RomanHankaku ( “0 6 4 0 8 0 4 2 9 – 1 5 2 4 – 2 3 – 2 – ” ) ; ” ” ; “” ) ;
#1 = Middle ( #〒 ; 1 ; 1 ) ;
#2 = Middle ( #〒 ; 2 ; 1 ) ;
#3 = Middle ( #〒 ; 3 ; 1 ) ;
#4 = Middle ( #〒 ; 4 ; 1 ) ;
#5 = Middle ( #〒 ; 5 ; 1 ) ;
#6 = Middle ( #〒 ; 6 ; 1 ) ;
#7 = Middle ( #〒 ; 7 ; 1 ) ;
#88 = Substitute ( #〒 ;
[ “-” ; “|A” ] ;
[ “CC1” ; “|B” ] ;
[ “CC2” ; “|C” ] ;
[ “CC3” ; “|D” ] ;
[ “CC4” ; “|E” ] ;
[ “CC5” ; “|F” ] ;
[ “CC6” ; “|G” ] ;
[ “CC7” ; “|H” ] ;
[ “CC8” ; “|I” ] ;
[ “0” ; “00”] ;
[ “1” ; “01”] ;
[ “2” ; “02”] ;
[ “3” ; “03”] ;
[ “4” ; “04”] ;
[ “5” ; “05”] ;
[ “6” ; “06”] ;
[ “7” ; “07”] ;
[ “8” ; “08”] ;
[ “9” ; “09”] ) ;
#8 = Case ( Middle ( #88 ; 15 ; 1 ) = “0” ; Middle ( #88 ; 16 ; 1 ) ;
Middle ( #88 ; 15 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 15 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 15 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 15 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 15 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 15 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 15 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 15 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 15 ; 2 ) = “|I” ; 18 ) ;
#9 = Case ( Middle ( #88 ; 17 ; 1 ) = “0” ; Middle ( #88 ; 18 ; 1 ) ;
Middle ( #88 ; 17 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 17 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 17 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 17 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 17 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 17 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 17 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 17 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 17 ; 2 ) = “|I” ; 18 ) ;
#10 = Case ( Middle ( #88 ; 19 ; 1 ) = “0” ; Middle ( #88 ; 20 ; 1 ) ;
Middle ( #88 ; 19 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 19 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 19 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 19 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 19 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 19 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 19 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 19 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 19 ; 2 ) = “|I” ; 18 ) ;
#11 = Case ( Middle ( #88 ; 21 ; 1 ) = “0” ; Middle ( #88 ; 22 ; 1 ) ;
Middle ( #88 ; 21 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 21 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 21 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 21 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 21 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 21 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 21 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 21 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 21 ; 2 ) = “|I” ; 18 ) ;
#12 = Case ( Middle ( #88 ; 23 ; 1 ) = “0” ; Middle ( #88 ; 24 ; 1 ) ;
Middle ( #88 ; 23 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 23 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 23 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 23 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 23 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 23 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 23 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 23 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 23 ; 2 ) = “|I” ; 18 ) ;
#13 = Case ( Middle ( #88 ; 25 ; 1 ) = “0” ; Middle ( #88 ; 26 ; 1 ) ;
Middle ( #88 ; 25 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 25 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 25 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 25 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 25 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 25 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 25 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 25 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 25 ; 2 ) = “|I” ; 18 ) ;
#14 = Case ( Middle ( #88 ; 27 ; 1 ) = “0” ; Middle ( #88 ; 28 ; 1 ) ;
Middle ( #88 ; 27 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 27 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 27 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 27 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 27 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 27 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 27 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 27 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 27 ; 2 ) = “|I” ; 18 ) ;
#15 = Case ( Middle ( #88 ; 29 ; 1 ) = “0” ; Middle ( #88 ; 30 ; 1 ) ;
Middle ( #88 ; 29 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 29 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 29 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 29 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 29 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 29 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 29 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 29 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 29 ; 2 ) = “|I” ; 18 ) ;
#16 = Case ( Middle ( #88 ; 31 ; 1 ) = “0” ; Middle ( #88 ; 32 ; 1 ) ;
Middle ( #88 ; 31 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 31 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 31 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 31 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 31 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 31 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 31 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 31 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 31 ; 2 ) = “|I” ; 18 ) ;
#17 = Case ( Middle ( #88 ; 33 ; 1 ) = “0” ; Middle ( #88 ; 34 ; 1 ) ;
Middle ( #88 ; 33 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 33 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 33 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 33 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 33 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 33 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 33 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 33 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 33 ; 2 ) = “|I” ; 18 ) ;
#18 = Case ( Middle ( #88 ; 35 ; 1 ) = “0” ; Middle ( #88 ; 36 ; 1 ) ;
Middle ( #88 ; 35 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 35 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 35 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 35 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 35 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 35 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 35 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 35 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 35 ; 2 ) = “|I” ; 18 ) ;
#19 = Case ( Middle ( #88 ; 37 ; 1 ) = “0” ; Middle ( #88 ; 38 ; 1 ) ;
Middle ( #88 ; 37 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 37 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 37 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 37 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 37 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 37 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 37 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 37 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 37 ; 2 ) = “|I” ; 18 ) ;
#20 = Case ( Middle ( #88 ; 39 ; 1 ) = “0” ; Middle ( #88 ; 40 ; 1 ) ;
Middle ( #88 ; 39 ; 2 ) = “|A” ; 10 ;
Middle ( #88 ; 39 ; 2 ) = “|B” ; 11 ;
Middle ( #88 ; 39 ; 2 ) = “|C” ; 12 ;
Middle ( #88 ; 39 ; 2 ) = “|D” ; 13 ;
Middle ( #88 ; 39 ; 2 ) = “|E” ; 14 ;
Middle ( #88 ; 39 ; 2 ) = “|F” ; 15 ;
Middle ( #88 ; 39 ; 2 ) = “|G” ; 16 ;
Middle ( #88 ; 39 ; 2 ) = “|H” ; 17 ;
Middle ( #88 ; 39 ; 2 ) = “|I” ; 18 ) ;
#CD = Sum ( #1 ; #2 ; #3 ; #4 ; #5 ; #6 ; #7 ; #8 ; #9 ; #10 ; #11 ; #12 ; #13 ; #14 ; #15 ; #16 ; #17 ; #18 ; #19 ; #20 )
] ;
Choose ( Ceiling ( #CD / 19 ) * 19 – #CD ; 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ; 8 ; 9 ; “-” ; “CC1” ; “CC2” ; “CC3” ; “CC4” ; “CC5” ; “CC6” ; “CC7” ; “CC8” ; “CC9” )
)

広告

カテゴリー

%d人のブロガーが「いいね」をつけました。