主题：[原创]请教滞纳金计算代码

这个超难，C版的不知道是否正确？ 因理解不同会有不同结果的，呵呵～ 

 
此主题相关图片如下：未命名-.jpg

楼主：上面C版的结果对吗？ 您给几个正确的各种情况下结果的贴图来看看。。。。（多些行数，三行单调了些）

楼主在命令窗口测试一下这段代码看看结果是你要的么：

Dim z,z1,z2,z3,z4 As Double
z1 = dr("缴款金额1")
z2 = dr("缴款金额2")
z3 = dr("缴款金额3")
z4 = dr("缴款金额4")
Dim td1,td2,td3,td4 As TimeSpan
For i As Integer = 0 To Tables("宗地交款信息").count - 1
    Tables("宗地交款信息").rows(i)("应交滞纳金") = 0
   
    Dim tj As Date = Tables("宗地交款信息").rows(i)("缴款日期")
    Dim Sum,Sum2,Sumd1 As Double
   
    If Tables("宗地交款信息").rows(i)("缴款金额") = 0
        Tables("宗地交款信息").rows(i)("应交滞纳金") = 0
    Else
       
        If tj <= t1
            Tables("宗地交款信息").rows(i)("应交滞纳金") = 0
        Else
            Sum = DataTables("宗地交款信息").Compute("Sum(缴款金额)", "缴款日期 <= '" & tj & "'")
            Sum2 = DataTables("宗地交款信息").Compute("Sum(缴款金额)", "缴款日期 < '" & tj & "'")
            If Sum <= z1
                Sumd1 = z1 - Sum2
                td1 = tj - t1
                Tables("宗地交款信息").rows(i)("应交滞纳金") = Sumd1 * 0.001 * td1.days
            Elseif Sum > z1 AndAlso Sum <= z1+z2
                If z1 - Sum2 > 0
                    Sumd1 = z1 - Sum2
                    td1 = tj - t1
                    td2 = tj - t2
                    If td2.days > 0
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = Sumd1 * 0.001 * td1.days + (Sum-z1) * 0.001 * td2.days
                    Else
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = Sumd1 * 0.001 * td1.days
                    End If
                Else
                    If z1+z2 >= Sum
                        Sumd1 = Sum - Sum2
                        td1 = tj - t2
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = Sumd1 * 0.001 * td1.days
                    End If
                End If
                '-----------------------------
            Elseif Sum > z1+z2  AndAlso Sum <= z1+z2+z3  '当累计缴款金额 > 约定金额1+2时
                If z1+z2 - Sum2 > 0   '约定金额1+2大于本次缴款之前的累计时
                    Sumd1 = z1+z2 - Sum2
                    td1 = tj - t2
                    td2 = tj - t3
                    If td2.days > 0
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = sumd1 * 0.001 * td1.days + (Sum-z1-z2)*0.001*td2.days
                    Else
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = sumd1 * 0.001 * td1.days
                    End If
                Else
                    If z1+z2+z3 >= Sum
                        Sumd1 = Sum - Sum2
                        td3 = tj - t3
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = Sumd1 * 0.001 * td3.days
                    End If
                End If
            Elseif Sum > z1+z2+z3  AndAlso Sum <= z1+z2+z3+z4
                If z1+z2+z3 - Sum2 > 0
                    Sumd1 = z1+z2+z3 - Sum2
                    td1 = tj - t3
                    td2 = tj - t4
                    If td2.days > 0
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = sumd1 * 0.001 * td1.days + (Sum-z1-z2-z3)*0.001*td2.days
                    Else
                        Tables("宗地交款信息").rows(i)("应交滞纳金") = sumd1 * 0.001 * td1.days
                    End If
                Else
                    If z1+z2+z3+z4 >= Sum
                        Sumd1 = Sum - Sum2
                        If Sumd1 > 0  '最后多缴款退回时会出现负数的滞纳金,所以加此判断···
                            td3 = tj - t4
                            If td3.days > 0
                                Tables("宗地交款信息").rows(i)("应交滞纳金") = Sumd1 * 0.001 * td3.days
                            Else
                                Tables("宗地交款信息").rows(i)("应交滞纳金") = 0
                            End If
                        End If
                    End If
                    '-------------------------------------------
                End If
            Elseif Sum > z1+z2+z3+z4
                messagebox.show("谢谢,多交了" & Sum - (z1+z2+z3+z4) & "元", "** ^_^ **")
            End If
        End If
    End If
Next

下图中的结果对否？ 代码可是够写了···

是的，挺难的，楼主无影无踪了···

我13楼手工计算的结果还合理吗？ 其中个位的数字代表天数： 即  剩余的金额×天数×滞纳金比率