计算个人所得税函数
时 间:2018-07-07 18:14:33
作 者:刘生 ID:24547 城市:广州
摘 要:根据税前工资和起征点计算个人所得税
正 文:
计算个人所得税函数
'================个人所得税计算函数====================================
'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群 (群号:115120150) access源码网店
常见问答
技术分类
最新帖子
- 报表中VBA画直线并使... (02-20 21:02)
- 怎么设置我输入一个代码... (02-20 12:55)
- 各位大神,我的acce... (02-19 15:17)
- access组合框中下... (02-19 12:31)
- 文本框多次输入数据,如... (02-18 16:57)
- 执行删除时窗体显示#已... (02-18 16:13)
- 请问全选中复制或选中一... (02-17 22:45)
- 请问输入的字符要变多,... (02-17 22:40)
- 如何制作下载本地文件的... (02-16 16:40)
- 从一表向另一表导入数据... (02-16 15:45)

学习心得
最新文章
- 平台自动升级设置错误,显示“没有找...(02.20)
- 【Access示例】连续窗体添加条...(02.19)
- 【Access基础】随机数函数--...(02.18)
- Access快速开发平台--分享一...(02.17)
- 【Access示例】--多选复选框...(02.17)
- 平台打不开,DAO360控件丢失,...(02.16)
- [张志MVP]Access每天3分...(02.16)
- 新输入数据时自动下拉组合框-通用方...(02.15)
- 【Access快速开发平台】Win...(02.15)
- Access快速开发平台--下面这...(02.13)
最新评论 查看更多评论(0)
发表评论您的评论将提升作者分享的动力!快来评论一下吧!