Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 财务应用

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

时 间:2007-10-14 22:45:17
作 者:AskHeart   ID:17  城市:秦皇岛
摘 要:计算个人所得税函数(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交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助