VBA个人所得税计算.pdf

《VBA个人所得税计算.pdf》由会员分享，可在线阅读，更多相关《VBA个人所得税计算.pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第-1-页/共-3-页VBA 个人所得税计算使用说明：本程序可在各种支持VBA 语言的软件上直接使用，其中MS Excel 和 MS Access 已成功测试。（把程序复制到 VBA 编程器里即可直接使用）程序使用方法 1：当我们需要求出某个应税月收入时，我们只需要套用“=个税(月收入,起征点,计算方法)”公式就可以轻易求出应纳税金额，极大的提高了在工资表里计算每个员工所得税的效率。而且此函数还提供了应税起征点的选择，通过设置不同的应税起征点，可以适应不同省、市和地区的使用。公式中当“计算方法”为0 时，直接计算应税月收入的应纳税金额。但由于我们常常会遇到一种实际上的劳资问题，那就是广大职工到

2、单位里工作往往最关心的是他们的实际月工资所得，就是税后的工资所得。例如：某工人在应聘时坚持要得到一个税后月收入为5000 元的待遇，而单位又认为该要求是合理的，请问单位应该怎样准确的计算出该工人的应税月收入，然后减去应纳税额后，实收月收入又刚刚好等于5000 元呢？假设应税起征点是2000 元，通过把公式中当“计算方法”设为1，我们就可以轻松得到一个“应税收入补偿”，通过把这补偿与要求的税后收入5000 元相加，我们求得到一个正确的应税月收入。例如：通过“=个税(5000,2000,1)”，我们求得这个“应税收入补偿”为382.4，然后与 5000 相加得到的 5382.4 就是我们需要的应税

3、月收入。我们可以通过验证可知：顺运算图一：第-2-页/共-3-页逆运算图二：程序：原创:谭伟全创作时间:2007 年Email: Public Function 个税(月收入,起征点,计算方法)计算方法:0=顺运算,1=逆运算If 计算方法=0 Then If(月收入-起征点)0 And(月收入-起征点)500 And(月收入-起征点)2000 And(月收入-起征点)5000 And(月收入-起征点)20000 And(月收入-起征点)40000 And(月收入-起征点)60000 And(月收入-起征点)80000 And(月收入-起征点)100000 Then 个税=(月收入-起征点)*

4、0.45-15375 End If ElseIf 计算方法=1 Then If 月收入 起征点And 月收入 起征点+500*0.95 And 月收入 起征点+2000*0.9+25 And 月收入 起征点+5000*0.85+125 And 月收入 起征点+20000*0.8+375 And 月收入 起征点+40000*0.75+1375 And 月收入 起征点+60000*0.7+3375 And 月收入 起征点+80000*0.65+6375 And 月收入 起征点+100000*0.6+10375 Then 个税=(月收入-起征点*0.45-15375)/(1-0.45)-起征点)*0.45-15375 End If End If End Function