Foxtable(狐表)用户栏目专家坐堂 → 个人所得税预扣率


  共有2363人关注过本帖树形打印复制链接

主题:个人所得税预扣率

美女呀,离线,留言给我吧!
lfz123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:526 积分:4566 威望:0 精华:0 注册:2018/3/24 18:04:00
个人所得税预扣率  发帖心情 Post By:2019/3/14 18:51:00 [只看该作者]

请教:

图片点击可在新窗口打开查看此主题相关图片如下:个人所得税预扣率表-工资薪金所得.png
图片点击可在新窗口打开查看

比如我的工资是35000,就找到级次是1的行,工资是38000,就找到级次是2的行,
我类似于写了这样一段代码,但只能提取到第一级的数字,后面就提取不出来了,请老师指点下,谢谢
 Dim v8 As Double = v1 - v6 - V5 '累计应纳税所得额
        If v8 >  0 Then
            Dim drs As List (of DataRow) = DataTables("个人所得税预扣率表").Select("扣除上限 <= " & v8 & " ","扣除上限 DESC ") '这一步没有实现
            If drs.Count = 0 Then
                Dim v9 As Double = v8 * 0.03  '累计应纳税额
                Dim v10 As Double = e.DataTable.Compute("sum(所得税)","证照号码 = '"& e.DataRow("证照号码") & "'and 月份 <  '"& e.datarow("月份") & "' ") '累计已交税金
                If v9 - v10 > 0 Then
                    e.DataRow("所得税") = v9 - v10
                Else
                    e.DataRow("所得税") = 0
                End If                
            Else
                Dim v9 As Double = v8 * drs(0)("预扣率") - drs(0)("速算扣除数") '累计应纳税额

                Dim v10 As Double = e.DataTable.Compute("sum(所得税)","证照号码 = '"& e.DataRow("证照号码") & "'and 月份 <  '"& e.datarow("月份") & "' ") '累计已交税金
                If v9 - v10 > 0 Then
                    e.DataRow("所得税") = v9 - v10
                Else
                    e.DataRow("所得税") = 0
                End If
            End If
        Else
            e.DataRow("所得税") = 0
        End If
    Else
        e.DataRow("所得税") = e.DataRow("本期收入") * 0.03
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/14 21:25:00 [只看该作者]

你需要这个?

 

Dim gz = 35000
Dim jg = iif((gz)>960000,(gz)*0.45-181920,IIF((gz)>660000,(gz)*0.35-85920,IIF((gz)>420000,(gz)*0.30-52920,IIF((gz)>300000,(gz)*0.25-31920,IIF((gz)>144000,(gz)*0.2-16920,IIF((gz)>36000,(gz)*0.1-2520,(gz)*0.03))))))
msgbox(jg)


 回到顶部
美女呀,离线,留言给我吧!
lfz123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:526 积分:4566 威望:0 精华:0 注册:2018/3/24 18:04:00
回复:(有点甜)你需要这个? Dim gz = 350...  发帖心情 Post By:2019/3/14 22:16:00 [只看该作者]

是的,就是这个,感恩您的答疑解惑,我的问题完美解决了

 回到顶部