个人所得税筹划vab代码

wangtx218 · 发表于 2012-1-7 17:06

本帖最后由 wangtx218 于 2012-1-8 17:51 编辑

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

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

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

[attach]1071014

灰袍法师 · 发表于 2012-1-8 16:45

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

[attach]1071014

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

wangtx218 · 发表于 2012-1-9 11:31

灰袍法师发表于 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 · 发表于 2012-2-11 19:21

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

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

wangtx218 · 发表于 2012-2-12 10:59

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

已改好，谢谢你！

忆沫沫 · 发表于 2012-8-2 11:07

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 · 发表于 2012-11-15 16:50

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

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

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

VAT · 发表于 2012-11-15 16:53

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

VAT · 发表于 2012-11-15 16:54

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

VAT · 发表于 2012-11-15 16:57

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

		自动登录	找回密码
密码			免费注册

[求助] 个人所得税筹划vab代码