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

计算个人所得税新方法

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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