计算个人所得税函数-刘生
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


计算个人所得税函数

发表时间:2018/7/7 18:14:33 评论(0) 浏览(9380)  评论 | 加入收藏 | 复制
   
摘 要:根据税前工资和起征点计算个人所得税
正 文:

计算个人所得税函数

'================个人所得税计算函数====================================

'SQGZ是税前工资,QZD是起征点
Public Function 个人所得税(ByVal SQGZ As Double, ByVal QZD As Double) As Double
Dim NSDJ()          '数组:纳税等级
Dim SN()            '数组:税率
Dim SSKQS()         '数组:速算扣除数
Dim nsjs As Double  '纳税基数
Dim i    As Long

NSDJ = Array(80000, 55000, 35000, 9000, 4500, 1500, 0)  '纳税等级
SN = Array(0.45, 0.35, 0.3, 0.25, 0.2, 0.1, 0.03)       '税率
SSKQS = Array(13505, 5505, 2755, 1005, 555, 105, 0)     '速算扣除数

nsjs = SQGZ - QZD     '纳税基数=税前工资-起征点
    For i = LBound(NSDJ) To UBound(NSDJ)      '循环数组的下标至上标
        If nsjs > NSDJ(i) Then
            个人所得税 = nsjs * SN(i) - SSKQS(i)

            exit for
        End If
    Next
End Function
'------------------------------------------------------------------------------------------------------------
Private Sub cmd计算_Click()
    Me.txt个人所得税 = 个人所得税(Me.txt税前工资, Me.txt起征点)
End Sub


附   件:

个人所得税计算


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
财务收支的累计余额示例  【恐龙的传人  2015/3/30】
2016年终奖个人所得税计算器  【宏鹏  2016/1/20】
财务科目小示例一则  【vincent  2016/5/20】
【Access示例】--用Switch函数查询个人所得税  【宏鹏  2018/2/10】
分享简易ACCESS财务报表  【郑先生  2018/2/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

刘生

文章分类

文章存档

友情链接