派遣　飲み会の憂鬱（会費編）

こんにちは。コロ子です。

飲み会の会費について。こういう事、よくあるよね。

f:id:SNegishi:20190215225945p:plain

安っ！！

ひどーい！！

こういう格差見せつけられると憂鬱になる。

15年働いてても新入社員より安い。

こんなところで甲乙つけるんだったらお給料上げてよ！

お給料安くてごめんなさい、派遣でごめんなさい、生きててごめんなさい、

でも毎日一生懸命働いていますよ。

雇用形態が派遣で、お給料が安いと飲み会の会費をまけてもらっただけで

病気になりそうなくらい憂鬱な気分になる。

コロ子のお給料が安いのは重々承知してる。

じゃぁ、いったいみんなはいくら貰ってるの？

みんなのお給料を計算してみる（妄想）

見事な累進会費制度なので勝手にみんなのお給料がいくらかを計算してみることにした。

まずは所得税の算出法を確認

f:id:SNegishi:20190214221257p:plain

所得税の算出方法は上記の表から

所得金額×税率ー控除額＝税額

【コロ子の場合】

コロ子の場合（年収300万）

3,000,000円×0.1ー97,500円=202,500円

202,500円の税額と2,000円の会費の比率を求める

2,000円÷202,500円=0.00987654320987654

税額×比率＝会費

税額に対する会費を表にすると
f:id:SNegishi:20190215212659p:plain

会費130,410円は絶対ないわー。政治家のパーティーとか。
それにしてもコロ子の2,000円と年収4,000万円の人の130,410円は同じ感覚ということなのだろうか・・・？

年収を逆算する

想定年収＝（会費÷比率＋控除額）÷税率

せっかくなのでVBAで計算マクロ作成します。

赤枠のところを表1より算出する。

f:id:SNegishi:20190215214002p:plain

コードはこんな感じ。簡単！

Sub AnnualSalary()

Dim i As Long, j As Long

For i = 5 To 9

    '表2の会費が表1の何行目にあたるかを調べる
    For j = 6 To 15 Step 2

        '会費963円以下
        If Cells(i, "G") <= Cells(5, "E") Then
        
            j = 5
            Exit For
        
        ElseIf Cells(j, "E") < Cells(i, "G") And Cells(j + 1, "E") >= Cells(i, "G") Then
            
            Exit For
        
        '会費130,410円以上
        ElseIf Cells(i, "G") > Cells(16, "E") Then
            
            j = 16
            Exit For
        
        End If
        
    Next j
    
    '年収＝（会費÷比率＋控除額）÷税率
    Cells(i, "H") = (Cells(i, "G") / Cells(2, "E") + Cells(j, "C")) / Cells(j, "B")

Next i

End Sub