一个计算个税的自定义函数

gun44

一个计算个税的自定义函数
『分享』为计算个税所得税写的自定义函数，该函数有3个参数。第一个参数应纳税所得额；第二个参数可选，全年一次性奖金；第三个参数可选，选1为计算月度个人所得税，选2为计算全年一次性奖金。计算全年一次性奖金还加入了奖金小于当月收入的判断。
欢迎大家给宝贵意见。

Function IIT(ynssd As Double, Optional ycxjj As Double, Optional j As Integer)
Dim k As Double
If j = 1 Then
    Select Case ynssd
        Case Is <= 0
            IIT = 0
        Case Is <= 500
            IIT = Application.Round(ynssd * 0.05, 2)
        Case Is <= 2000
            IIT = Application.Round(ynssd * 0.1 - 25, 2)
        Case Is <= 5000
            IIT = Application.Round(ynssd * 0.15 - 125, 2)
        Case Is <= 20000
            IIT = Application.Round(ynssd * 0.2 - 375, 2)
        Case Is <= 40000
            IIT = Application.Round(ynssd * 0.25 - 1375, 2)
        Case Is <= 60000
            IIT = Application.Round(ynssd * 0.3 - 3375, 2)
        Case Is <= 80000
            IIT = Application.Round(ynssd * 0.35 - 6375, 2)
        Case Is <= 100000
            IIT = Application.Round(ynssd * 0.4 - 10375, 2)
        Case Is > 100000
            IIT = Application.Round(ynssd * 0.45 - 15375, 2)
    End Select
ElseIf j = 2 Then
    k = ycxjj / 12
If ynssd >= 0 Then
    Select Case k
        Case Is <= 0
            IIT = 0
        Case Is <= 500
            IIT = Application.Round(ycxjj * 0.05, 2)
        Case Is <= 2000
            IIT = Application.Round(ycxjj * 0.1 - 25, 2)
        Case Is <= 5000
            IIT = Application.Round(ycxjj * 0.15 - 125, 2)
        Case Is <= 20000
            IIT = Application.Round(ycxjj * 0.2 - 375, 2)
        Case Is <= 40000
            IIT = Application.Round(ycxjj * 0.25 - 1375, 2)
        Case Is <= 60000
            IIT = Application.Round(ycxjj * 0.3 - 3375, 2)
        Case Is <= 80000
            IIT = Application.Round(ycxjj * 0.35 - 6375, 2)
        Case Is <= 100000
            IIT = Application.Round(ycxjj * 0.4 - 10375, 2)
        Case Is > 100000
            IIT = Application.Round(ycxjj * 0.45 - 15375, 2)
    End Select
ElseIf ynssd < 0 Then
    If ycxjj + ynssd <= 0 Then
        IIT = 0
    Else
        Select Case k
            Case Is <= 0
                IIT = 0
            Case Is <= 500
                IIT = Application.Round((ycxjj + ynssd) * 0.05, 2)
            Case Is <= 2000
                IIT = Application.Round((ycxjj + ynssd) * 0.1 - 25, 2)
            Case Is <= 5000
                IIT = Application.Round((ycxjj + ynssd) * 0.15 - 125, 2)
            Case Is <= 20000
                IIT = Application.Round((ycxjj + ynssd) * 0.2 - 375, 2)
            Case Is <= 40000
                IIT = Application.Round((ycxjj + ynssd) * 0.25 - 1375, 2)
            Case Is <= 60000
                IIT = Application.Round((ycxjj + ynssd) * 0.3 - 3375, 2)
            Case Is <= 80000
                IIT = Application.Round((ycxjj + ynssd) * 0.35 - 6375, 2)
            Case Is <= 100000
                IIT = Application.Round((ycxjj + ynssd) * 0.4 - 10375, 2)
            Case Is > 100000
                IIT = Application.Round((ycxjj + ynssd) * 0.45 - 15375, 2)
        End Select
     End If
End If
End If
End Function

jyhxr

支持原创作品,楼主辛苦!

gun44

谢谢！
我也是刚刚学VBA，大家多交流一下。

jyhxr

原帖由 gun44 于 2011-4-6 15:54 发表
谢谢！
我也是刚刚学VBA，大家多交流一下。

round()应该可以放到最后的

gun44

原帖由 jyhxr 于 2011-4-6 15:56 发表

round()应该可以放到最后的

什么意思呢？请明示。

学生甲1

兄弟论坛中有一个经典的，你参考一下.
Function sds(x)
  For Each c In Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000)
  If x - 1600 - c > 0 Then sds = sds + Round((x - 1600 - c) * 0.05, 2)
  Next c
End Function

jyhxr

我也不是太明白,感觉那么多的  IIT = Application.Round(...)  不如放到最后
IIT = Application.Round(IIT)
没试过,只是猜想而已

寅鹞

原帖由 学生甲1 于 2011-4-6 16:06 发表
兄弟论坛中有一个经典的，你参考一下.
Function sds(x)
  For Each c In Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000)
  If x - 1600 - c > 0 Then sds = sds + Round((x - 1600 - c) * 0.05, ...

我觉得可以改良一下

1. Function sds(income As Double, Optional Lower As Integer) As Double
   
2.   Lower = IIf(Lower = 0, 1600, Lower)
   
3.   For Each c In Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000)
   
4.   If income - Lower - c > 0 Then sds = sds + Round((income - Lower - c) * 0.05, 2)
   
5.   Next c
   
6. End Function
   

复制代码

gun44

原帖由 寅鹞 于 2011-4-6 16:41 发表


我觉得可以改良一下Function sds(income As Double, Optional Lower As Integer) As Double
  Lower = IIf(Lower = 0, 1600, Lower)
  For Each c In Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000,  ...

太好了，可以好好学习一下。

wangtx218

原帖由 学生甲1 于 2011-4-6 16:06 发表
兄弟论坛中有一个经典的，你参考一下.
Function sds(x)
  For Each c In Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000)
  If x - 1600 - c > 0 Then sds = sds + Round((x - 1600 - c) * 0.05, ...

实务中，四舍五入放在最后，按上面计算可能有误差！