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

计算结果正确

msgbox(InTax(80000-3500)) '21270.00

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

2、如果调整了税率，那你可以重写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