个人所得税筹划vab代码

wangtx218

[/attach]灰袍法师 发表于 2011-7-3 19:14
要想快，就最好直接查表，根本不用算，1万笔也就1秒钟搞定

本回帖的附件必须先计算出一个年薪100万以内的 ...

最近我写了个，自定义函数，请你优化一下，先谢了

[attach]1071014

灰袍法师

wangtx218 发表于 2012-1-7 17:06
最近我写了个，自定义函数，请你优化一下，先谢了

[attach]1071014

这个函数写的不错，没什么优化的余地了。
顶多把 appilication.max 改为VBA的 if a<b then ... else...

wangtx218

灰袍法师 发表于 2012-1-8 16:45
这个函数写的不错，没什么优化的余地了。
顶多把 appilication.max 改为VBA的 if a

If tax < min Then min = tax: sr = IIf(i < 7, arr1(i), arr2)
改为
If tax <= min Then min = tax: sr = IIf(i < 7, arr1(i), arr2)
出不来，不知为什么
收入60000=3500*12+18000
需要60000=5000*12+0
税相同情况下，月收入取大的，请代码大师改一下，先谢了！

4159888

yaoxuhuijsz 发表于 2011-7-3 09:06
个人所得税筹划vab代码
表中，
1.月工资错误，应该取最小税合计时的月工资数据，

i = 1
    Do While arr1(1, i) = 最小税合计
        i = i + 1
    Loop
这里是否有问题？是不是应该是DO UNTIL？

wangtx218

灰袍法师 发表于 2012-1-8 16:45
这个函数写的不错，没什么优化的余地了。
顶多把 appilication.max 改为VBA的 if a

已改好，谢谢你！

忆沫沫

wangtx218 发表于 2012-2-12 10:59
已改好，谢谢你！

能否请问下
If x > c Then i = i + 1: gts = gts + (a - b - c) * 0.05 * Choose(i, 0.6, 1.4, 2, 1, 1, 1, 2)
   Next c
这是什么意思啊，那个税率要怎么改的，刚开始学，不太懂。。。

VAT

wangtx218 发表于 2011-7-2 16:29
税不是最小：

发50万，月37166.67，年54000，税计：94235

这个问题我也研究过了，请大家看看我的研究成果

VAT

诅大家见图示，我用了VBA解决此问题

VAT

这其中需要讨论的一个关键是：年终奖个税计算方法的边际税率陷阱问题！

VAT

这个问题无法用规划求解来解决，有可能和个税函数无法求导有关