如何计算个人所得税的函数-王三平
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 财务应用


如何计算个人所得税的函数

发表时间:2007/10/14 22:45:17 评论(3) 浏览(15063)  评论 | 加入收藏 | 复制
   
摘 要:计算个人所得税函数(EXCEL中测试通过)
正 文:

计算个人所得税函数,在工资管理中有很广泛的用途。


Public Function grSds(Str1, Str2 As Double) As Double
    On Error GoTo errorer

    '个人所得税 = (应纳税所得额str1 - 所得税起征点str2)*缴费比例
    '从2006年1月1日起个人所得税起征点为1600元
    Dim Abc As Single

    Abc = Str1 - Str2

    Select Case Abc
    Case Is <= 0
        Abc = 0
    Case Is <= 500
        Abc = Abc * 5 / 100
    Case Is <= 2000
        Abc = Abc * 10 / 100 - 25
    Case Is <= 5000
        Abc = Abc * 15 / 100 - 125
    Case Is <= 20000
        Abc = Abc * 20 / 100 - 375
    Case Is <= 40000
        Abc = Abc * 25 / 100 - 1375
    Case Is <= 60000
        Abc = Abc * 30 / 100 - 3375
    Case Is <= 80000
        Abc = Abc * 35 / 100 - 6375
    Case Is <= 100000
        Abc = Abc * 40 / 100 - 10375
    Case Is > 100000
        Abc = Abc * 45 / 100 - 15375
    End Select
    grSds = Round(Abc, 2)
errorer:
    Exit Function

End Function

使用方法:

1、在EXCEL的VBA中把上述代码复制到模中。

2、在单元格引用此函数:如C列为应纳所得税额,个人所得税起征点为1600,D列为交纳个人所得税额。则在D列的D3单元格录入以下公式,=grsds(C3,1600)

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access财务应用交流QQ群群号:152986078 欢迎学习a...  【宏鹏  2012/10/8】
常见问答
技术分类
相关资源
文章搜索
关于作者

王三平

文章分类

文章存档

友情链接