excel中个人所得税之自定义函数

最新推荐文章于 2023-01-06 21:14:59 发布

zhousulin5

最新推荐文章于 2023-01-06 21:14:59 发布

阅读量888

点赞数

本文链接：https://blog.csdn.net/zhousulin5/article/details/5394582

版权

该博客介绍了如何在Excel中使用VBA自定义函数计算个人所得税。提供了两个函数，GRSDS用于根据税前收入计算税额，GrsdsSH则用于根据税后收入反推税前收入。函数中包含了不同收入阶段的税率和速算扣除数。

摘要由CSDN通过智能技术生成

Attribute VB_Name = "模块1"
'个人所得税税前计算之自定义函数
'yssr应税收入合计,gsqzd个税缴费起征点,shuilv税率
Function GRSDS(yssr As Double) As Double
   Const gsqzd As Integer = 2000 '需要时修改起征点
   Dim shuilv As Double
   Dim susuan As Integer
     yssr = yssr - gsqzd
     If yssr <= 0 Then
        GRSDS = 0
        Exit Function
       Else
         If yssr <= 500 Then
            shuilv = 0.05
            susuan = 0
          Else
             If yssr <= 2000 Then
                shuilv = 0.1
                susuan = 25
                Else
                  If yssr <= 5000 Then
                     shuilv = 0.15
                     susuan = 125
                    Else
                      If yssr <= 20000 Then
                         shuilv = 0.2