以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  个人所得税计税函数代码怎么编写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107855)

--  作者:狂风暴雨狂波
--  发布时间:2017/10/11 14:31:00
--  个人所得税计税函数代码怎么编写?

InTax(Value),该函数计算依据为2011年7月1日发布的《中华人民共和国个人所得税》,如果计算依据发生变化,这个函数还有用吗?如果没用了,该怎么编写函数?


--  作者:有点甜
--  发布时间:2017/10/11 14:57:00
--  
测试了一下,这个函数可用的。
--  作者:狂风暴雨狂波
--  发布时间:2017/10/11 15:59:00
--  
可用,但计算结果不对.比如现行扣除基数是3500,假设扣除基数调增为5000,现行55000-80000的税率为35%,速算扣除为5505,假设税率改为40%,速算扣除为8255.假设应税工资为80000,用现行税率计算应交个人所得税为(80000-3500)*0.35-5505=21270,用假定税率计算为(80000-5000)*0.4-8255=21745而用InTax(Value)计算的结果为20745
[此贴子已经被作者于2017/10/11 16:43:21编辑过]

--  作者:有点甜
--  发布时间:2017/10/11 16:35:00
--  

计算结果正确

 

msgbox(InTax(80000-3500)) \'21270.00

 

 

收入金额: 80000
各项社会保险费: 0
起征额: 3500
应纳税所得额: 76500
适用税率: 35
速算扣除数: 5505
应纳所得税: 21270.00
税后收入: 58730.00


--  作者:狂风暴雨狂波
--  发布时间:2017/10/11 16:42:00
--  
以下是引用有点甜在2017/10/11 16:35:00的发言:

计算结果正确

 

msgbox(InTax(80000-3500)) \'21270.00

 

 

收入金额: 80000
各项社会保险费: 0
起征额: 3500
应纳税所得额: 76500
适用税率: 35
速算扣除数: 5505
应纳所得税: 21270.00
税后收入: 58730.00

你这个是按现行税率计算的,假设税率发生变化请试一下计算结果?


--  作者:有点甜
--  发布时间:2017/10/11 16:42:00
--  

1、如果个税调整,一般只调整起征点,那么函数就不用改;

 

2、如果调整了税率,那你可以重写InTax函数。


--  作者:狂风暴雨狂波
--  发布时间:2017/10/11 16:46:00
--  
以下是引用有点甜在2017/10/11 16:42:00的发言:

1、如果个税调整,一般只调整起征点,那么函数就不用改;

 

2、如果调整了税率,那你可以重写InTax函数。

就是不知道怎么重写InTax函数,我就是请教怎么重写InTax函数?


--  作者:有点甜
--  发布时间:2017/10/11 16:59:00
--  

全局代码

 


Public Function InTax(x As Double) As Double
 Dim num2 As Double
 If x > 80000.0 Then
  num2 = (x * 0.45) - 13505.0
 ElseIf x > 55000.0 Then
  num2 = (x * 0.35) - 5505.0
 ElseIf x > 35000.0 Then
  num2 = (x * 0.3) - 2755.0
 ElseIf x > 9000.0 Then
  num2 = (x * 0.25) - 1005.0
 ElseIf x > 4500.0 Then
  num2 = (x * 0.2) - 555.0
 ElseIf x > 1500.0 Then
  num2 = (x * 0.1) - 105.0
 ElseIf x > 0.0 Then
  num2 = x * 0.03
 ElseIf x <= 0.0 Then
  num2 = 0.0
 End If
 Return Math.Round(num2, 2)
End Function


--  作者:狂风暴雨狂波
--  发布时间:2017/10/11 17:10:00
--  
这个全局代码项目发布后可不可以修改呀?
--  作者:有点甜
--  发布时间:2017/10/11 21:33:00
--  
以下是引用狂风暴雨狂波在2017/10/11 17:10:00的发言:
这个全局代码项目发布后可不可以修改呀?

 

你担心太多。

 

1、所得税的税率是不会乱改的。

 

2、如果你担心税率改了,那你是不是还要担心区间也变了?或者是计算方法整个变了?

 

3、如果变了,你可以升级程序;如果想动态,你可以用动态编译 http://www.foxtable.com/webhelp/scr/1487.htm