'############################################################### '函数作用:计算个人所得税 '参数说明:q应纳税所得额 ' w为扣除额,可自定义,如 800 '使用说明:如 a1 为应纳税所得额,直接在单元格输入“=sds(a1,800)",也可以是“=sds(a1,b1))" ' 如果扣除额不是 800,可自己改数字,也可以是单元格 '############################################################### Public Function sds(q, w) je = q ‐ w If q < w Then 'msgbox("应纳税所得额必须大于或等于扣除额!") sds = 0 ElseIf je <= 500 Then sds = je * 0.05 ElseIf je > 500 And je <= 2000 Then sds = je * 0.1 ‐ 25 ElseIf je > 2000 And je <= 5000 Then sds = je * 0.15 ‐ 125 ElseIf je > 5000 And je <= 20000 Then sds = je * 0.2 ‐ 375 ElseIf je > 20000 And je <= 40000 Then sds = je * 0.25 ‐ 1375 ElseIf je > 40000 And je <= 60000 Then sds = je * 0.3 ‐ 3375 ElseIf je > 60000 And je <= 80000 Then sds = je * 0.35 ‐ 6375 ElseIf je > 80000 And je <= 10000 Then sds = je * 0.4 ‐ 10375 Else sds = je * 0.45 ‐ 15375 End If End Function |
|