我是想从付款日期中提取月份信息到月份列。然后同一户名的人在同一个月累计实付金额,按照公式来算出每笔金额所对应的劳务税费。此人劳务税费占此人此月劳务税费的总额的比例与每笔实付金额占此月此人的的总实付金额比例相同。
此月此人总实付金额小于等于800元则税费等于0
此月此人总实付金额大于800元小于3360元则税费等于(实付金额-800)*0.25
此月此人总实付金额大于3360元小于20000元则税费等于(实付金额)*0.1905
此月此人总实付金额大于20000小于37000元则税费等于(实付金额-2000)/0.76-实付金额
此月此人总实付金额大于37000元则税费等于(实付金额-7000)/0.68-实付金额
Case "实付金额"
Dim dr As DataRow = e.DataRow
If dr("实付金额")<800 Then
dr("专家劳务税费")=0
ElseIf dr("实付金额")<3360 Then
dr("专家劳务税费")=(dr("实付金额")-800)*0.25
ElseIf dr("实付金额") < 20000 Then
dr("专家劳务税费")=dr("实付金额")*0.1905
ElseIf dr("实付金额") < 37000 Then
dr("专家劳务税费")=(dr("实付金额")-2000)/0.76-dr("实付金额")
Else
dr("专家劳务税费")=(dr("实付金额")-7000)/0.68-dr("实付金额")
End If