Accessで給与計算12~クエリの設定⑤年金保険料の算定

Pocket

厚生年金保険料を求めますが、求め方は健康保険料と同じです。
介護保険がない分年金の方が簡単です。

次の二つのフィールドを追加します。
2612041
年金ID: IIf(IsNull([算定基礎額]),0,IIf([算定基礎額]<93000,1,DMax(“ID”,”厚生年金料率表”,”[以上]<” & [算定基礎額] & “”)))

93000円より少ない場合は、ID=1
93000円より大きければ厚生年金料率表の「以上」フィールドよりも算定基礎額が
小さい数字の最大のIDを取得します。

年金保険料: Int(DLookUp(“保険料”,”厚生年金料率表”,”ID=” & [年金ID] & “”))/1

そのIDを基に厚生年金保険料を算定します。

2612043

実行結果です。
2612042

あとは源泉所得税と雇用保険料を求めます。

=======================
昨日は今年一発目の忘年会。久しぶりの午前様でした。
明日は税理士会広報部の忘年会。
来週のマラソン大会に向け、体重は増やしたくないのですが、
この時期に節制するのも嫌なので、折角なので楽しみます。

本日も最後までお読み頂きありがとうございます。