计算个人所得税新方法
时 间:2008-06-25 06:53:26
作 者: ID:994 城市:杭州
摘 要:个人所得税的调整可能越来越频繁,为了避免每次调整都去改程序源代码,就采用这种方法吧,只需要在“个人所得税比率表”中改一下比率,在“起征点表”中改一下起征点就OK了。
正 文:
'本模块用于计算个人所得税
'调用格式:所得税=Call所得税(应纳税所得)
'要使用本模块必须具备以下条件:
' 1、表:个人所得税比率表
' 应纳税所得下限额 纳税比率 速算扣除数
' 0 5 0
' 500 10 25
' 2000 15 125
' 5000 20 375
' 20000 25 1375
' 40000 30 3375
' 60000 35 6375
' 80000 40 10375
' 100000 45 15375
' 2、表:起征点表
' 起征点
' 2000
' 3、参数:应纳税所得
' 指除去个人承担的基本养老保险金、医疗保险金、
' 失业保险金,以及按省级政府规定标准缴纳的住房公积金等,
' 不需减去起征点金额
Public Function Call所得税(ByVal 应纳税所得额 As Double) As Double
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "Select * FROM 个人所得税比率表 orDER BY 应纳税所得下限额 DESC"
Dim rsQZD As ADODB.Recordset
Set rsQZD = New ADODB.Recordset
rsQZD.ActiveConnection = CurrentProject.Connection
rsQZD.CursorType = adOpenStatic
rsQZD.LockType = adLockOptimistic
rsQZD.Open "Select 起征点 FROM 起征点表"
Dim temp As Double
temp = 应纳税所得额 - rsQZD!起征点
Do Until rs.EOF
If temp > rs!应纳税所得下限额 Then
Call所得税 = temp * rs!纳税比率 / 100 - rs!速算扣除数
Exit Function
Else
rs.MoveNext
End If
Loop
End Function
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)