入通院慰謝料の計算マクロ（VBA）

赤い本，別表１の入通院慰謝料の計算マクロ関数（Excel VBA）
第１引数は，入院と通院を合わせた総治療日数
第２引数は，入院日数
返す値の単位は万円。

Function 入通院慰謝料(治療日数 As Integer, 入院日数 As Integer) As Currency
　　入院 = Array(0, 53, 101, 145, 184, 217, 244, 266, 284, 297, 306, 314, 321, 328, 334, 340)
　　通院 = Array(0, 28, 52, 73, 90, 105, 116, 124, 132, 139, 145, 150, 154, 158, 162, 164)

　　入院月数 = Int(入院日数 / 30)
　　入院剰余 = 入院日数 Mod 30
　　入院慰謝料a = 入院(入院月数)
　　入院慰謝料b = (入院(入院月数 + 1) - 入院(入院月数)) / 30 * 入院剰余
　　入院慰謝料 = 入院慰謝料a + 入院慰謝料b
　　入院分通院慰謝料a = 通院(入院月数)
　　入院分通院慰謝料b = (通院(入院月数 + 1) - 通院(入院月数)) / 30 * 入院剰余
　　入院分通院慰謝料 = 入院分通院慰謝料a + 入院分通院慰謝料b

　　入通院月数 = Int(治療日数 / 30)
　　入通院剰余 = 治療日数 Mod 30
　　通院慰謝料a = 通院(入通院月数)
　　通院慰謝料b = (通院(入通院月数 + 1) - 通院(入通院月数)) / 30 * 入通院剰余
　　通院慰謝料 = 通院慰謝料a + 通院慰謝料b - 入院分通院慰謝料

　　入通院慰謝料 = 入院慰謝料 + 通院慰謝料
End Function

※行頭のスペースが全角ですので，エラーが出る場合は半角かタブに変えてください。