このディレクトリの索引

# # インタプリタトップから売上伝票を入力する # _出荷日+_伝票番号+_顧客番号+_商品番号+_数量+_内税金額 :- 内税金額を外税金額と消費税に分解する(_内税金額,_外税金額,_消費税), _売上 =.. [売上,_出荷日,_伝票番号,_顧客番号,_商品番号,_数量,_外税金額,_消費税], assertz(_売上). 消費税率(19970401,20140331,5). 消費税率(20140401,99999999,8). 内税金額を外税金額と消費税に分解する(_内税金額,_外税金額,_消費税) :- 消費税率を選択(_出荷日,_消費税率), _消費税 is truncate(_内税金額 * _消費税率 / ( 100 + _消費税率) + 0.5), _外税金額 is _内税金額 - _消費税. 消費税率を選択(_出荷日,_消費税率) :- 消費税率(_消費税率適用起点日,_消費税率適用終了日,_消費税率), _出荷日 >= _消費税率適用起点日, _出荷日 =< _消費税率適用終了日.