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


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

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


#【確定申告書 A 用】申告書 A には『第一表』と『第二表』がある。
# 計算対象は【第一表】の (ア)〜(オ)、(1)〜(34) のみ。

# 確定申告書には A と B があるが、この計算シートは A 用となっている。確定
# 申告書 A は、申告する所得が給与所得、雑所得、配当所得、一時所得だけで、
# 予定納税額のない人が使用できる。ただし、前年分から繰り越された損失額を
# 本年分から差し引く場合は、申告書 B を使用する。

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

# 収入金額等              ：(ア)〜(オ)
# 所得金額                ：(1) 〜(5)
# 所得から差し引かれる金額：(6) 〜(20)
# 税金の計算              ：(21)〜(34)
# その他                  ：(35)〜(37)
# 延納の届出              ：(38)〜(39)

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

# ------------------------------------------------------------------------
# 0: 今日の日付(実行日時：Postgres形式)
# ------------------------------------------------------------------------
localtime


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

# 1: (ア)給与
$aa = 0

# 2: (イ)雑(公的年金等)
$ii = 0

# 3: (ウ)雑(その他)
$uu = 0

# 4: (エ)配当
$ee = 0

# 5: (オ)一時
$oo = 0


# ------------------------------------------------------------------------
# 所得別 (イ)(ウ)(エ)(オ) の『必要経費等』を記入
# (収入がないものについては 0 のままにする)
# ------------------------------------------------------------------------

# (イ)雑(公的年金等)…収入額によって計算方法が違う
# 生年月日によっても計算方法が違う(次のどちらかを選択)
# 昭和20年1月2日以後に生まれた方(65歳未満)… $hk_i = 0 (デフォルト)
# 昭和20年1月1日以前に生まれた方(65歳以上)… $hk_i = 1
# 金額が 410万円以上の場合、生年月日にかかわらず同じ計算方法が適用される
$hk_i = 0

# (ウ)雑(その他)
$hk_u = 0

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

# (オ)一時
$hk_o = 0


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

# ***********************************
# (1)給与

# 0 - 650,999円
($aa < 651_000) && ($k01 = 0)

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

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

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

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

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

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

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

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

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

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

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

# ***********************************
# (2B)雑(公的年金等)
#     収入額 [A] => $ii
#     所得額 [B] => $k02B

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

# 0 - 700,000円
($hk_i  or  $ii < 700_001) && ($k02B = 0)

# 700,001 - 1,299,999円
$bool = ""
($hk_i  or  $ii > 700_000) && ($ii < 1_300_000  and  $bool = 1)
$bool && ($k02B = $ii - 700_000)

# 1,300,000 - 4,099,999円
$bool = ""
($hk_i  or  $ii > 1_299_999) && ($ii < 4_100_000  and  $bool = 1)
$bool && ($k02B = $ii * 0.75 - 375_000)

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

# 0 - 1,200,000円
($hk_i  and  $ii <1_200_001) && ($k02B = 0)

# 1,200,001 - 3,299,999円
$bool = ""
($hk_i  and  $ii > 1_200_000) && ($ii < 3_300_000  and  $bool = 1)
$bool && ($k02B = $ii - 1_200_000)

# 3,300,000 - 4,099,999円
$bool = ""
($hk_i  or  $ii > 3_299_999) && ($ii < 4_100_000  and  $bool = 1)
$bool && ($k02B = $ii * 0.75 - 375_000)

# -----------------------------------
# 410万円以上

# 4,100,000 - 7,699,999円
$bool = ""
($ii > 4_099_999) && ($ii < 7_700_000  and  $bool = 1)
$bool && ($k02B = $ii * 0.85 - 785_000)

# 7,700,000円以上
($ii > 7_699_999) && ($k02B = $ii * 0.95 - 1_555_000)

# ***********************************
# (2E)雑(その他)
#     収入額 [C] => $uu
#   必要経費 [D] => $hk_u
#     所得額 [E] => $k02E
$k02E = $uu - $hk_u

# ***********************************
# (2)雑所得合計 [F]=[B]+[E] (赤字のときは 0円)
$k02 = $k02B + $k02E
$k02 < 0  and  $k02 = 0

# ***********************************
# (3)配当 (赤字のときは 0円)
$k03 = $ee - $hk_e
($k03 < 0) && ($k03 = 0)

# ***********************************
# (4)一時
# $sa = 0
$k04 = 0

# ***********************************
# (5)所得合計
$k05 = $k01 + $k02 + $k03 + $k04


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

# ***********************************
# (6)社会保険料控除
$k06 = 0

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

# ***********************************
# (8)生命保険料控除
$k08 = 0

# ***********************************
# (9)地震保険料控除
$k09 = 0

# ***********************************
# (10)寡婦、寡夫控除
$k10 = 0

# ***********************************
# (11a)勤労学生控除
$k11a = 0

# ***********************************
# (11b)障害者控除
$k11b = 0

# ※ (11a)(11b) は、申告書では合算して記入する
$k11 = $k11a + $k11b

# ***********************************
# (12)配偶者控除
$k12 = 0

# ***********************************
# (13)配偶者特別控除
$k13 = 0

# ***********************************
# (14)扶養控除
$k14 = 0

# ***********************************
# (15)基礎控除
$k15 = 380_000

# ***********************************
# (16) (6)から(15)までの計
$k16 = $k06 +$k07 +$k08 +$k09 +$k10 +$k11 +$k12 +$k13 +$k14 +$k15

# ***********************************
# (17)雑損控除
$k17 = 0

# ***********************************
# (18)医療費控除
$k18 = 0

# ***********************************
# (19)寄付金控除
$k19 = 0

# ***********************************
# (20)控除額合計
$k20 = $k16 + $k17 + $k18 + $k19


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

# ***********************************
# (21) 課税される所得金額 (5)-(20) (千円未満の端数切捨て※)
#   ● 自動算出される(新たに記述する必要はない)
#   ※ (5)-(20) が 1000円未満の場合(赤字含む)は、0円となる
$k21 = int( ($k05 - $k20)/1000 ) * 1000
($k21 < 0) && ($k21 = 0)

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

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

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

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

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

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

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

# ***********************************
# (23) 配当控除
$k23 = 0

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

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

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

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

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

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

# ***********************************
# (30) 差引所得税額
#   ● 自動算出される(新たに記述する必要はない)
#      (22)-(23)-(24)-(25)-(26)-(27)-(28)-(29)
$k30 = $k22 - $k23 - $k24 - $k25 - $k26 - $k27 - $k28 - $k29

# ***********************************
# (31a) 災害減免額
$k31a = 0

# ***********************************
# (31b) 外国税額控除
$k31b = 0

$k31 = $k31a + $k31b

# ***********************************
# (32) 源泉徴収税額
$k32 = 0

# ***********************************
# (33a) 申告納税額
#   ● 自動算出される(新たに記述する必要はない)
#      (30)-(31)-(32)
#      黒字の場合…100円未満の端数を切捨て
#      赤字の場合…金額の頭に「△」又は「-」を付けてそのままの金額
$k33a = $k30 - $k31 - $k32
($k33a > 0) && ( $k33a = int($k33a/100)*100 )

# ***********************************
# (33) 第3期分の税額 / 納める税金
#   ● 自動算出される(新たに記述する必要はない)
#      黒字の場合…100円未満の端数を切捨て
#      赤字の場合…納める税金は 0 円
$k33 = $k33a
# ↓赤字の場合、次項(34)の欄に記入する(ここでは代入するだけ)
($k33 < 0) && ($k34 = $k33  and  $k33 = 0)

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


00

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