个人所得税计算提取表

p123456789 · 发表于 2003-12-11 10:41

k5UAlMvx.rar (24.16 KB, 下载次数: 399) [hide][Power=20][/Power][Point=40][/Point][Money=20][/Money]
设置只为试验

bigshot · 发表于 2003-12-11 12:32

很好,但提取时为何会出错

spwyl · 发表于 2003-12-11 16:47

看看这个。
=if((a1-800)>=0,if((a1-800)<40000,if((a1-800)<500,(a1-800)*5%,if((a1-800)<2000,(a1-800)*10%-25,if((a1-800)<5000,(a1-800)*15%-125,if((a1-800)<20000,(a1-800)*20%-375,(a1-800)*25%-1375)))),if((a1-800)<60000,(a1-800)*30%-3375,if((a1-800)<80000,(a1-800)*35%-6375,if((a1-800)<100000,(a1-800)*40%-10375,(a1-800)*45%-15375))))," ")

p123456789 · 发表于 2003-12-12 13:48

公式太麻烦,而且实现功能有限制

ladhome · 发表于 2003-12-30 00:13

楼主：明年我们要用新的个人所得税申报表，原来我是用多级“ if ”来写公式的。为了方便，我试用你的方法：通过“vlookup”查找适用税率，但发现假如计税额为：500、2000、5000、20000……等，就会套到上一级的税率。虽然碰上这些数的机会甚少，但毕竟跟现行的税收规定不一致啊。这问题能解决吗？若不行，还得用我的“if”了。

[此贴子已经被作者于2003-12-30 0:16:26编辑过]

p123456789 · 发表于 2003-12-30 10:15

我看看
再给你答复

ladhome · 发表于 2003-12-30 12:29

在计税所得额的上限标准增加一分即可解决（即500.01、2000.01、5000.01……）
通过提取表查找，既公式简单又便于阅读及以后修改。谢谢楼主了。

[此贴子已经被作者于2003-12-30 17:46:37编辑过]

p123456789 · 发表于 2003-12-30 12:34

也谢谢你,真是细心

xtjatqyh · 发表于 2004-1-1 11:38

工具------》宏，在VBA 编辑器中增加一模块，写入以下代码
Function tax(income As Single) As Single
Select Case income
Case 0 To 800
tax = 0
Case 800.01 To 1300
tax = (income - 800) * 0.05
Case 1300.01 To 2800
tax = (income - 1300) * 0.1 + 25
Case 2800.01 To 5800
tax = (income - 2800) * 0.15 + 175
Case 5800.01 To 20800
tax = (income - 5800) * 0.2 + 625
Case 20800.01 To 40800
tax = (income - 20800) * 0.25 + 3625
Case 40800.01 To 60800
tax = (income - 40800) * 0.3 + 8625
Case 60800.01 To 80800
tax = (income - 60800) * 0.35 + 14625
Case 80800.01 To 100800
tax = (income - 80800) * 0.4 + 21625
Case Is > 100800
tax = (income - 100800) * 0.45 + 32865
Case Is < 0
MsgBox "OUT of Range"
End Select
End Function

另存为“TAX.xla” 即加载宏，工具---》加载宏，选择“TAX” ，即可。
对复杂的计算，很适用

p123456789 · 发表于 2004-1-1 12:24

很好

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

[分享] 个人所得税计算提取表