最新计算应交个人所得税的自定义函数

不解木野狐

Function Sds(sr As Single) As Single
    Dim sl As Single
    Dim nssd As Single
    nssd = sr - 3500
    Select Case nssd
        Case 0 To 1500
            sl = 0.03: kcs = 0
        Case 1500.01 To 4500
            sl = 0.1: kcs = 105
        Case 4500.01 To 9000
            sl = 0.2: kcs = 555
        Case 9000.01 To 35000
            sl = 0.25: kcs = 1005
        Case 35000.01 To 55000
            sl = 0.3: kcs = 2755
        Case 55000.01 To 80000
            sl = 0.35: kcs = 5505
        Case Else
           sl = 0.45: kcs = 13505
        End Select
    If nssd <= 0 Then
        Sds = 0
    Else
        Sds = Round(nssd * sl - kcs, 2)
    End If
End Function
    这是根据最新的税法写的自定义函数  在工作表中输入=sds()   参数可以是单元格，也可以是数字，别的我就不说了，都懂的.............

xpm130

有用。支持分享！

gfj1982

顶一个！！

yutong2004

哎，我比较愚昧不知道怎么用，要好好研究下

cam333

很好，要改为2018年新个税，怎么改代码？？