プ レ ゼ ン ト 簡単なプログラムで申し訳ございませんが、使う人によっては結構 便利なプログラムです。「約束手形 印紙税計算」プログラムの説明：
約束手形又は振替手形を作成すると額面に対し、印紙税がかかります。 例えば、５００万円には千円の印紙ですが、５００万円に１円でも越え ると、とたんに２千円の印紙が必要になります。 しかし、手形を３，０００，０００円と２，０００，００１円の２枚 に分けて発行すると、各々６００円の印紙を貼れば良く合計で千２百円 の印紙で済み８百円得します。 高額になり、件数も多くなれば馬鹿になりません。 しかし、忙しい 事務作業では、理屈が解っていても手計算ではついつい面倒で１枚で発 行してしまうことも多いでしょうが、そんなときに役立てば幸いです。 なお、「売上代金に係る金銭又は有価証券の受取書」（領収書）の 印紙税も非課税の金額以外は同じなので使用できます。 ［手形は１０万円未満が非課税、受取書は３万円未満が非課税］ 当プログラムは１０万円未満が非課税（０円）にセットされています。 受領書に貼る方は注意して下さい 税率は平成22年4月現在です。 印紙税の確認ダウンロード
tegcut7.exe(175,616Byte) Windows95
注意事項：このプログラムのご使用に際して、如何なる損害が発生しても、一切責任をお受けする事はできません。
以下はプログラムのソースです。
'******************************
' 約束手形 印紙税計算
' iAsai 1986/08/19-88/03/31
' 93/12/09-98/08/17
' file name : tegcut7.txt
'******************************
1080 '
' /* 表題印書
PRINT " ====================================="
PRINT " 約束手形 | ３百万円以下の "
PRINT " 印紙税 | 時には効果が "
PRINT " 計算 | 在りません "
print " ------------------------------ "
print " ７億４千９百万円を超える "
print " 時には効果がありません。 "
print " 百億円以上は桁あふれします。 "
print " ------------------------------ "
PRINT " 額面が百万円を超えいる時に "
PRINT " 端数として百万円未満の金額が "
PRINT " 有る時は百万円と端数を "
PRINT " 加えた額面で発行して。 "
PRINT " (百万未満の発行はしません) "
PRINT " ====================================="
'
' /* 額面入力
input "金額を入れて下さい。："; A#
if A# <= 0 then
print "終了します。":
end
endif
'
'
' /* 額面で印紙税が確定する。
if A# > 1000000000# then
Y# = 200000!:
gosub 2060
endif
if A# > 749000000# and A# <= 1000000000# then
Y# = 150000!:
gosub 2060
endif
if A# < 100000! then
Y# = 0:
gosub 2060
endif
if A# >= 100000# and A# < 1000000# then
Y# = 200!:
gosub 2060
endif
'
' /* 入力金額出力
PRINT USING "##,###,###,###"; A#; : PRINT "単独";
'
' /* 税表読込み
1570 READ X#, Y#
' /* 税表終了--> 合計出力
if X# = 0 then
goto 1920' /* 端数出力へ
endif
'
' /* 税額確認
B# = A# - INT(A# / X#) * X#: ' /* 残額
C# = INT(A# / X#): ' /* 処理ﾌﾗｸﾞ C#=0:処理されない,1:処理された
'
' /* 入力額面を一枚で発行した印税
if C# = 1 and G = 0 and A# > X# then
print using "#,###,###"; F#; :
print "が": print "------------------------------": G = 1
else
if C# = 1 and G = 0 then
print "": G = 1
endif
endif
F# = Y#: ' /* 前回税額
'
' /* 残額に百万円以下の端数が有るとき
' /* 発生時の処理
if C# = 1 and B# < 1000000# and B# <> 0 then
A# = A# - (B# + 1000000#):
E# = 1000000# + B#:
goto 1570
endif
' /* 二百万円と端数で発行のとき
if C# = 1 and X# = 1000000# and E# <> 0 then
A# = A# + E#: Y# = 600:
gosub 2060
endif
'
' /* 処理額が上位額-百万円を超える時は上位印税額で終了
if X# = 300000000# and A# > 499000000# then
Y# = 100000!:
gosub 2060
endif
if X# = 200000000# and A# > 299000000# then
Y# = 60000!:
gosub 2060
endif
if X# = 100000000# and A# > 199000000# then
Y# = 40000!:
gosub 2060
endif
if X# = 50000000# and A# > 99000000# then
Y# = 20000:
gosub 2060
endif
if X# = 30000000# and A# > 49000000# then
Y# = 10000:
gosub 2060
endif
if X# = 20000000# and A# > 29000000# then
Y# = 6000:
gosub 2060
endif
if X# = 10000000# and A# > 19000000# then
Y# = 4000:
gosub 2060
endif
if X# = 5000000# and A# > 9000000# then
Y# = 2000:
gosub 2060
endif
if X# = 3000000# and A# > 4000000# then
Y# = 1000:
gosub 2060
endif
if X# = 1000000# and A# > 1000000# then
Y# = 400:
gosub 2060
endif
'
' /* 今回の税額で処理された時、額面と印税を出力
if C# = 1 then
print using "##,###,###,###"; X#; Y#:
Q# = Q# + X#: R# = R# + Y#: A# = B#:
goto 1570
else
goto 1570 ' /* 新しい税表へ
endif
'
' /* 端数値出力
1920 if E# <> 0 then
Y# = 400:
print using "##,###,###,###"; E#; Y#:
Q# = Q# + E#: R# = R# + Y#
endif
1930 '
' /* 合計出力
PRINT "=============================="
print using "##,###,###,###"; Q#; R#; : print "合計": print
restore: stop
end ' /* 終了
'
' /* 税表テーブル
DATA 1000000000,150000
DATA 500000000,100000,300000000,60000,200000000,40000,100000000,20000
DATA 50000000, 10000, 30000000, 6000, 20000000, 4000, 10000000, 2000
DATA 5000000, 1000, 3000000, 600, 2000000, 400, 1000000, 200
DATA 100000, 200, 0,0
'
2060 ' /* SUB : 額面印書と合計加算
print using "##,###,###,###"; A#; Y#:
Q# = Q# + A#: R# = R# + Y#:
goto 1930
Windows以外の方、ソースを上記に載せておきますから、コピー＆ペーストでテキストファイルとして読み込み、ご自分のコンピュータでコンパイルし、ご使用することもできます。
ご使用に際して、如何なる損害が発生しても、一切責任をお受けする事はできません。