主题：关于日期分期

Dim d1 As Date = Tables("合同").Current("计息开始时间")
Dim d2 As Date = Tables("合同").Current("计息结束时间")
Dim d As Date = d1
Do While d < 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("本期起息日") = d
    Dim d1 As Date = d
    d= d.Addmonth(1)
    If d1.day = Date.DaysInMonth(d1.year,d1.month) Then
        d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
    End If
    r("本期结息日") = d
    Dim Days As Integer =Date.DaysInMonth(d.year,d.month)
    Select Case d.month
        Case 1, 3, 5, 7, 8, 10, 12 ' AndAlso d.day = 30
            d = New Date(d.year,d.month,days)
            r("本期结息日")=new Date(d.year,d.month,31)
    End Select
Loop

我在命令窗口测试我的代码，没有问题的：

Dim d As Date = #5/31/2011#
Dim d2 As Date = #5/1/2012#
Do While d < d2
    Dim d1 As Date = d
    d= d.Addmonths(1)
    If d1.day = Date.DaysInMonth(d1.year,d1.month) Then
        d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
    End If
    output.show(d)
Loop

Dim d As Date = #5/30/2011#
Dim d2 As Date = #5/1/2012#
Do While d < d2
    If d.day <> Date.DaysInMonth(d.year,d.month)
        d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
    Else
        Dim d1 As Date = d
        d = d.Addmonths(1)
        If d1.day = Date.DaysInMonth(d1.year,d1.month) Then
            d = new Date(d.year,d.month,Date.DaysInMonth(d.year,d.month))
        End If
    End If
    output.show(d)
Loop