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

楼上肯定是不对的，因为第二行数据没有加上第一次交款到第二次交款之间的第一次欠缴的滞纳金，第三行也同样没有加上。

我的也不对，我第三次交款中没有加上第一次少交款的（第一次的滞纳金只交到第二次交款日期）滞纳金。

我改了一下，还是按自己的理解，不一定对。

 

Dim dr As DataRow = e.DataRow
Dim t,t1 As TimeSpan
Dim Val As Double
Dim pr As DataRow = dr.GetParentrow("宗地合同信息")
If pr IsNot Nothing Then
    If e.DataCol.Name = "缴款次数" AndAlso dr.IsNull("缴款次数") = False And dr("缴款次数") < 5 Then
        dr("滞纳金比例") = pr("滞纳金比例")
        dr("约定日期") = pr("缴款日期" & dr("缴款次数"))
        dr("本次应缴") = pr("缴款金额" & dr("缴款次数"))
    End If
    If e.DataCol.Name = "缴款日期" OrElse e.DataCol.Name = "缴款金额" And dr("缴款次数") < 5 Then
        If dr.IsNull("缴款日期") OrElse dr.IsNull("缴款金额") Then
            dr("应交滞纳金") = 0
        Else
            If dr("缴款次数") > 1 Then
                Dim dr1 As DataRow = e.DataTable.Find("宗地编号 = '" & dr("宗地编号") & "' And 缴款次数 = '" & dr("缴款次数")-1 & "'")
                Dim n As Double = e.DataTable.Compute("Sum(本次应缴)","[_Identify] < " & dr("_Identify"))
                Dim n1 As Double = e.DataTable.Compute("Sum(缴款金额)","[_Identify] < " & dr("_Identify"))
                If dr1 IsNot Nothing
                    t1 = dr("缴款日期") - dr1("缴款日期")
                    If dr1("本次应缴") - dr1("缴款金额") > 0 Then
                        Val = (n- n1) * dr("滞纳金比例")*t1.Days
                    End If
                End If
            End If
            t = dr("缴款日期") - dr("约定日期")
            If t.Days > 0 OrElse t1.Days > 0 Then
                If dr("本次应缴") > dr("缴款金额") Then
                    dr("应交滞纳金") = ((dr("本次应缴") - dr("缴款金额"))*dr("滞纳金比例")*t.Days) + Val
                Else
                    dr("应交滞纳金") = Val
                End If
            Else
                dr("应交滞纳金") = Val
            End If
        End If
    End If
End If

 

结果图

 

 

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

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

  

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

呵呵，剃头挑子一头热。

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

 

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

 

哈，我也说不上到底是正确还是不正确，等楼主来回答吧。

谢谢大家，这两天忙没上网。基本上是按13楼所列的计算方法计算的。明天再测试。再次谢谢。