投稿者 okigaru | 2012/02/03

GS1-128UCC

カスタム関数
/*引数解説 bar(バーコードGS1-128UCC) cod(17=期限/10=ロッド/30=入数/21=シリアル)*/
Let([
bar=RomanHankaku(bar);
F_17=Case(Middle(bar;20;2)=”17″;(Date(Case(Middle(bar;26;2)=”00″;Middle(bar;24;2)+1;Middle(bar;24;2));Middle(bar;26;2);Middle(bar;22;2)+2000)));
F_10=Case(PatternCount(bar;”10″)=1;Middle(bar;(Position(bar;”10″;20;1))+6;Case(PatternCount(bar;””)=2;(Position(bar;””;20;2))-(Position(bar;””;20;1)+6);Length(bar)-(Position(bar;””;20;1)))));
F_30=Case(Middle(bar;28;2)=”30″;Middle(bar;30;Position(bar;””;20;1)-30));
F_21=Case(PatternCount(bar;”21″)>0;Middle(bar;Position(bar;”21″;20;1)+6;20))
];
Case(cod=17;(F_17);cod=10;(F_10);cod=30;(F_30);cod=21;(F_21))
)

まだ不完全だけど…
取り敢えずメモ

広告

カテゴリー

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