主题：个人所得税计税函数代码怎么编写?

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

测试了一下，这个函数可用的。

可用,但计算结果不对.比如现行扣除基数是3500,假设扣除基数调增为5000,现行55000-80000的税率为35%,速算扣除为5505,假设税率改为40%,速算扣除为8255.假设应税工资为80000,用现行税率计算应交个人所得税为(80000-3500)*0.35-5505=21270,用假定税率计算为(80000-5000)*0.4-8255=21745而用InTax(Value)计算的结果为20745

计算结果正确

 

msgbox(InTax(80000-3500)) '21270.00

 

 

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

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

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

 

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

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

全局代码

 

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

这个全局代码项目发布后可不可以修改呀?

 

你担心太多。

 

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

 

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

 

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