计算个人所得税函数
时 间: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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 统计当月之前(不含当月)的记录...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)
- 【Access高效办公】上月累...(01.06)

学习心得
最新文章
- 仓库管理实战课程(18)-设置日期...(05.19)
- 仓库管理实战课程(17)-库存明细...(05.13)
- 【Access高效办公】条件格式设...(05.12)
- 仓库管理实战课程(16)-联合查询...(05.07)
- 合并列数据到一个文本框的示例;输出...(05.06)
- 仓库管理实战课程(15)-月度库存...(04.30)
- Access选择打印机、横纵向、纸...(04.29)
- 仓库管理实战课程(14)-出库功能...(04.26)
- 通过命令按钮让Access列表框指...(04.24)
- 仓库管理实战课程(13)-入库功能...(04.21)