日期展期的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Index1 As Integer
Dim drs1 As List(Of DataRow)
drs1 = DataTables("利息").Select("合同编号='" & rr("合同编号") & "'And 本期结息日= #" & rr("计息结束时间").Addmonths(T) & "#")
For Each dr1 As DataRow In drs1
    Dim d1 As Date =dr1("本期起息日")
    Dim d2 As Date =dr1("本期结息日")
    Dim d As Date = d1
    Dim days1 As Integer = d1.day
    Do While d1 < d2
        Dim r As Row = Tables("利息").AddNew()
        r("客户编号")=Tables("合同").Current("客户编号")
        r("客户名称")=Tables("合同").Current("客户名称")
        r("合同编号")=Tables("合同").Current("合同编号")
        r("收据号")=Tables("合同").Current("收据号")
        r("本金")=Tables("合同").Current("本金")
        r("付息方式")=Tables("合同").Current("付息方式")
        r("方式")=Tables("合同").Current("方式")
        r("利率")=Tables("合同").Current("利率")
        r("合同现状")=Tables("合同").Current("合同现状")
        r("本期起息日") = d1
        d1 = d1.addmonths(1)
        Dim days2 = Date.DaysInMonth(d1.year,d1.month)
        If d1.Day < days1
            d1 = new Date(d1.year,d1.month,math.min(days2,days1))
        End If
        If d1 > d2 Then
            d1 = d2
        End If
        r("本期结息日") = d1
    Loop
Next

主题：日期展期的问题