- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：个人所得税五级征收税率如何用代码实现计算呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52832)
-- 发布时间：2014/6/24 1:53:00
-- 求助：个人所得税五级征收税率如何用代码实现计算呢？
|
级数
|
全年应纳税所得额
|
税 率（%）
|
|
1
|
不超过15000元的
|
5% (750)
|
|
2
|
超过15000-30000元的部分
|
10%(1500)
|
|
3
|
超过30000-60000元的部分
|
20%(6000)
|
|
4
|
超过60000-100000元的部分
|
30%(12000)
|
|
5
|
超过100000元的部分
|
35%
|
例如：
18.9万交的个人所得税？ 累加应交税
?1.5万 1.5万X5%=750元 750元
?1.5—3万 1.5万X10=1500元 2250元
?3----6万 3万X20%=6000元 8250元
?6----10万 4万X30%=12000元 20250元
?10---18.9万 8.9万X35%=31150元 51400元
用下面代码计算出来的结果69970元 明显和上面结果总和不同 上面的计算数值是在100000左右
Select Case e.DataCol.name
Case "工资"
If e.DataRow.IsNull("工资") Then
e.DataRow("所得税") = Nothing
Else
e.DataRow("所得税") = InTax(e.DataRow("工资") - 3500)
End If
End Select
经过查证，帮助中的计算是使用下面的税收标准。
此主题相关图片如下：qq图片20140624093701.jpg
[此贴子已经被作者于2014-6-24 17:22:02编辑过]
-- 发布时间：2014/6/24 8:34:00
--
那就只能自己编写一个计税函数了
-- 发布时间：2014/6/24 8:41:00
-- 回复：（Bin）那就只能自己编写一个计税函数了
BIN 老师 没得个思路呢？帮助里的代码那计算个税 函数有没有具体的计算方法说明呢？
或者说计算函数具体的计算标准是什么?
-- 发布时间：2014/6/24 8:43:00
--
Dim sl As Integer = 189000
Dim s As Double
If sl >3500 Then
If sl < 15000 Then
s=(sl-3500)*0.05
Else
s=(15000-3500)*0.05
End If
If sl < 30000 Then
s+=(sl-15000)*0.1
Else
s+=15000*0.1
End If
If sl < 60000 Then
s+=(sl-30000)*0.2
Else
s+=(30000)*0.2
End If
If sl < 100000 Then
s+=(sl-60000)*0.3
Else
s+=(40000)*0.3
s+=(sl-100000)*0.35
End If
End If
MessageBox.show(s)
-- 发布时间：2014/6/24 17:19:00
-- 回复：（Bin）Dim sl As Integer = 189000Dim s As Do...
感谢BIN老师
我学习学习