# ------------------------------------------------------------------------
# ecalc.pl(ver1.16以降) を使っての確定申告 計算シート
# ------------------------------------------------------------------------
# (Windows ユーザーならば、拙作 ecalc.bat を使うとさらに便利)
# 雛形(テンプレート)ファイル名：kakutei_B_h21.tem
# written by pablo foussin(japan)


# option (-ci => 変数を展開出力しない) (-r => 答のみ出力)
# -ci
-r

# ------------------------------------------------------------------------
# この計算シートは『平成21年分 所得税の確定申告の手引き(確定申告書 B 用)』
# を参考資料として作成した(税務署に行けば貰える)。
# ------------------------------------------------------------------------
# 改版履歴
# ver0.00: Mon 2010/03/08 01:56 - Thu 2010/03/11 11:11 初版(平成21年分)
#          とりあえず、作者にとって必要な部分のみを記述。


#【確定申告書 B 用】
# 計算対象は【第一表】の (ア)〜(サ)、(1)〜(43) のみ。

# 確定申告書には A と B があるが、この計算シートは B 用となっている。確定
# 申告書 B は、白色・青色・所得の種類に関わらず、誰でも使用できる申告用紙
# となっている。申告書 B には『第一表』と『第二表』がある。
# 人によっては『第三表(分離用)』『第四表(損失用)』が必要になる場合がある。
# が、作者はそれらに詳しくないため、第三表、第四表の計算シートは割愛した。

#【確定申告書 B】の【第1表】には、次の記入欄がある。

# 収入金額等              ：(ア)〜(サ)
# 所得金額                ：(1) 〜(9)
# 所得から差し引かれる金額：(10)〜(25)
# 税金の計算              ：(26)〜(43)
# その他                  ：(44)〜(51)
# 延納の届出              ：(52)〜(53)

# この計算シートでは、上記の(ア)〜(サ)、(1)〜(43)だけを扱い、所得の金額と
# 税金額を自動算出することに主眼を置いている。そのため『その他(44)〜(51)』
# および『延納の届出(52)〜(53)』は割愛した。

# ------------------------------------------------------------------------
# 0: 今日の日付(Postgres形式)
# ------------------------------------------------------------------------
localtime


# ------------------------------------------------------------------------
#【第一表】収入金額等(税込み) (1円未満は切り捨てて記入…のはず)
# ------------------------------------------------------------------------
# 所得の種類別に収入金額を記入(収入がないものについては 0 のままにする)

# 1: (ア)事業(営業等)
$aa = 0

# 2: (イ)事業(農業)
$ii = 0

# 3: (ウ)不動産
$uu = 0

# 4: (エ)利子
$ee = 0

# 5: (オ)配当
$oo = 0

# 6: (カ)給与
$ka = 0

# 7: (キ)雑(公的年金等)
$ki = 0

# 8: (ク)雑(その他)
$ku = 0

# 9: (ケ)総合譲渡(短期)
$ke = 0

#10: (コ)総合譲渡(長期)
$ko = 0

#11: (サ)一時
$sa = 0


# ------------------------------------------------------------------------
# 所得別の『必要経費等』(ここは『所得の内訳書』等から転記する)
# ------------------------------------------------------------------------
# 所得別の必要経費等を記入(収入がないものについては 0 のままにする)

# (ア)事業(営業等)
$hk_aa = 0

# (イ)事業(農業)
$hk_ii = 0

# (ウ)不動産
$hk_uu = 0

# (エ)利子…必要経費は認められない(なので省略)

# (オ)配当(負債の利子を記入)
$hk_oo = 0

# (カ)給与…収入額によって計算方法が違う(ここでは省略)

# (キ)雑(公的年金等)…収入額によって計算方法が違う
# 生年月日によっても計算方法が違う(次のどちらかを選択)
# 昭和20年1月2日以後に生まれた方(65歳未満)… $hk_ki = 0 (デフォルト)
# 昭和20年1月1日以前に生まれた方(65歳以上)… $hk_ki = 1
$hk_ki = 0

# (ク)雑(その他)
$hk_ku = 0

# (ケ)総合譲渡(短期) (取得費等を記入)
$hk_ke = 0

# (コ)総合譲渡(長期) (取得費等を記入)
$hk_ko = 0

# (サ)一時
$hk_sa = 0


# ------------------------------------------------------------------------
#【第一表】所得金額 (収入 - 必要経費)
# ------------------------------------------------------------------------
# 所得金額は、上記の必要経費等から自動算出される(新たに記述する必要はない)

# ***********************************
# (1)事業(営業等)
$k01 = $aa - $hk_aa

# ***********************************
# (2)事業(農業)
$k02 = $ii - $hk_ii

# ***********************************
# (3)不動産
$k03 = $uu - $hk_uu

# ***********************************
# (4)利子
$k04 = $ee

# ***********************************
# (5)配当 (赤字のときは 0円)
$k05 = $oo - $hk_oo
($k05 < 0) && ($k05 = 0)

# ***********************************
# (6)給与

# 0 - 650,999円
($ka < 651_000) && ($k06 = 0)

# 651,000 - 1,618,999円
($ka > 650_999  and  $ka < 1_619_000) && ($k06 = $ka - 650_000)

# 1,619,000 - 1,619,999円
($ka > 1_618_999  and  $ka < 1_620_000) && ($k06 = 969_000)

# 1,620,000 - 1,621,999円
($ka > 1_619_999  and  $ka < 1_622_000) && ($k06 = 970_000)

# 1,622,000 - 1,623,999円
($ka > 1_621_999  and  $ka < 1_624_000) && ($k06 = 972_000)

# 1,624,000 - 1,627,999円
($ka > 1_623_999  and  $ka < 1_628_000) && ($k06 = 974_000)

# [B]を求める 1,628,000 - 6,599,999円(千円未満の端数切捨て)
# $B = int( $ka / 4 * 10**3 ) * 10**3
($ka > 1_627_999  and  $ka < 6_600_000) && ( $B = int($ka/4000)*1000 )

# 1,628,000 - 1,799,999円
($ka > 1_627_999  and  $ka < 1_800_000) && ($k06 = $B * 2.4)

# 1,800,000 - 3,599,999円
($ka > 1_799_999  and  $ka < 3_600_000) && ($k06 = $B * 2.8 - 180_000)

# 3,600,000 - 6,599,999円
($ka > 3_599_999  and  $ka < 6_600_000) && ($k06 = $B * 3.2 - 540_000)

# 6,600,000 - 9,999,999円
($ka > 6_599_999 and $ka < 10_000_000) && ($k06 = $ka * 0.9 - 1_200_000)

# 10,000,000円以上
($ka > 9_999_999) && ($k06 = $ka * 0.95 - 1_700_000)

# ***********************************
# (7B)雑(公的年金等)
#     収入額 [A] => $ki
#     所得額 [B] => $k07B

# 昭和20年1月2日以後に生まれた方(65歳未満)の所得計算
# $hk_ki = 0 …つまり偽値

# 0 - 700,000円
($hk_ki  or  $ki < 700_001) && ($k07B = 0)

# 700,001 - 1,299,999円
undef($bool)
($hk_ki  or  $ki > 700_000) && ($ki < 1_300_000  and  $bool = 1)
$bool && ($k07B = $ki - 700_000)

# 1,300,000 - 4,099,999円
undef($bool)
($hk_ki  or  $ki > 1_299_999) && ($ki < 4_100_000  and  $bool = 1)
$bool && ($k07B = $ki * 0.75 - 375_000)

# 4,100,000 - 7,699,999円
undef($bool)
($hk_ki  or  $ki > 4_099_999) && ($ki < 7_700_000  and  $bool = 1)
$bool && ($k07B = $ki * 0.85 - 785_000)

# 7,700,000円以上
($hk_ki  or  $ki > 7_699_999) && ($k07B = $ki * 0.95 - 1_555_000)


# 昭和20年1月1日以前に生まれた方(65歳以上)の所得計算
# $hk_ki = 1 …つまり真値
# ($hk_ki and )


# ***********************************
# (7E)雑(その他)
#     収入額 [C] => $ku
#   必要経費 [D] => $hk_ku
#     所得額 [E] => $k07E
$k07E = $ku - $hk_ku

# ***********************************
# (7)雑所得合計 [F]=[B]+[E] (赤字のときは 0円)
$k07 = $k07B + $k07E
$k07 < 0  and  $k07 = 0

# ***********************************
# (8)総合譲渡(短期)
# $ke = 0

# ***********************************
# (8)総合譲渡(長期)
# $ko = 0

# ***********************************
# (8)一時
# $sa = 0
$k08 = 0

# ***********************************
# (9)所得合計
$k09 = $k01 + $k02 + $k03 + $k04 + $k05 + $k06 + $k07 + $k08


# ------------------------------------------------------------------------
#【第一表】所得から差し引かれる金額
# ------------------------------------------------------------------------
# 所得控除の金額を記入する(控除に該当しない項目は 0 のままにする)

# ***********************************
# (10)雑損控除
$k10 = 0

# ***********************************
# (11)医療費控除
$k11 = 0

# ***********************************
# (12)社会保険料控除
$k12 = 0

# ***********************************
# (13)小規模企業共済等掛金控除
$k13 = 0

# ***********************************
# (14)生命保険料控除
$k14 = 0

# ***********************************
# (15)地震保険料控除
$k15 = 0

# ***********************************
# (16)寄付金控除
$k16 = 0

# ***********************************
# なぜか (17) が欠番 ???
$k17 = 0

# ***********************************
# (18)寡婦、寡夫控除
$k18 = 0

# ***********************************
# (19)勤労学生控除
$k19 = 0

# ***********************************
# (20)障害者控除
$k20 = 0

# ※ (19)(20) は、申告書では合算して記入する
$k19_20 = $k19 + $k20

# ***********************************
# (21)配偶者控除
$k21 = 0

# ***********************************
# (22)配偶者特別控除
$k22 = 0

# ***********************************
# (23)扶養控除
$k23 = 0

# ***********************************
# (24)基礎控除
$k24 = 380_000

# ***********************************
# (25)控除額合計
$k25=$k10+$k11+$k12+$k13+$k14+$k15+$k16+$k18+$k19+$k20+$k21+$k22+$k23+$k24


# ------------------------------------------------------------------------
#【第一表】税金の計算
# ------------------------------------------------------------------------
# (該当しない項目は 0 のままにする)

# ***********************************
# (26) 課税される所得金額 [(9)-(25) 又は第3表] (千円未満の端数切捨て※)
#   ● 自動算出される(新たに記述する必要はない)
#   ※ (9)-(25) が 1000円未満の場合(赤字含む)は、0円となる
$k26 = int( ($k09 - $k25)/1000 ) * 1000
($k26 < 0) && ($k26 = 0)

# ***********************************
# (27) 上の(26)に対する税額 [又は第3表の(81)]
#   ● 自動算出される(新たに記述する必要はない)
#   ※ 課税額は『千円未満切捨て』なので、それを考慮して式を記述している

# 0円, 1000 - 1,949,000円
($k26 < 1_950_000) && ($k27 = $k26 * 0.05)

# 1,950,000 - 3,299,000円
($k26 > 1_949_000 and $k26 < 3_300_000) && ($k27 = $k26 * 0.1 - 97_500)

# 3,300,000 - 6,949,000円
($k26 > 3_299_000 and $k26 < 6_950_000) && ($k27 = $k26 * 0.2 - 427_500)

# 6,950,000 - 8,999,000円
($k26 > 6_949_000 and $k26 < 9_000_000) && ($k27 = $k26 * 0.23- 636_000)

# 9,000,000 - 17,999,000円
($k26 > 8_999_000 and $k26 < 18_000_000) && ($k27= $k26 * 0.33-1_536_000)

# 18,000,000円以上
($k26 > 17_999_000) && ($k27 = $k26 * 0.4 - 2_796_000)

# ***********************************
# (28) 配当控除
$k28 = 0

# ***********************************
# (29) 区分 (投資税額等控除)
$kub29 = 0
$k29   = 0

# ***********************************
# (30) (特定増改築等)住宅借入金等特別控除
$k30 = 0

# ***********************************
# (31) 政党等寄附金特別控除
$k31 = 0

# ***********************************
# (32) 住宅耐震改修特別控除
$k32 = 0

# ***********************************
# (33) 住宅特定改修特別税額控除
$k33 = 0

# ***********************************
# (34) 認定長期優良住宅新築等特別税額控除
$k34 = 0

# ***********************************
# (35) 電子証明書等特別控除
$k35 = 0

# ***********************************
# (36) 差引所得税額
#   ● 自動算出される(新たに記述する必要はない)
#      (27)-(28)-(29)-(30)-(31)-(32)-(33)-(34)-(35)
$k36 = $k27 - $k28 - $k29 - $k30 - $k31 - $k32 - $k33 - $k34 - $k35

# ***********************************
# (37) 災害減免額
$k37 = 0

# ***********************************
# (38) 外国税額控除
$k38 = 0

# ***********************************
# (39) 源泉徴収税額
$k39 = 0

# ***********************************
# (40) 申告納税額
#   ● 自動算出される(新たに記述する必要はない)
#      (36)-(37)-(38)-(39)
#      黒字の場合…100円未満の端数を切捨て
#      赤字の場合…金額の頭に「△」又は「-」を付けてそのままの金額
$k40 = $k36 - $k37 - $k38 - $k39
($k40 > 0) && ( $k40 = int($k40/100)*100 )

# ***********************************
# (41) 予定納税額
$k41 = 0

# ***********************************
# (42) 第3期分の税額 / 納める税金
#   ● 自動算出される(新たに記述する必要はない)
#      (40)-(41)
#      黒字の場合…100円未満の端数を切捨て
#      赤字の場合…納める税金は 0 円
($k42 = $k40 - $k41) && ($k42 > 0 and $k42 = int($k42/100)*100 )
# ↓赤字の場合、次項(43)の欄に記入する
($k42 < 0) && ($k43 = $k42 and $k42 = 0)

# ***********************************
# (43) 第3期分の税額 / 還付される税金
#   ● 自動算出される(新たに記述する必要はない)
#      黒字の場合…還付される税金は 0 円
#      赤字の場合…金額の頭に「△」又は「-」を付けてそのままの金額
$k43 ? $k43 : ($k43 = 0)


00

※ 以降は、ecalc.pl にとっては、ただのコメントとして無視する。
   備忘録として活用してください。