If Tables("合同").Current("付息方式") ="VIP客户" Then
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
d = d.AddMonths(1)
If d > d2 Then
d = d2
End If
r("本期结息日") = d
Loop
End If
这段代码得过的结果是:
合同表 利息表
计息开始时间 计息结束时间 本期起息日 本期结息日
2011-11-30 2012-06-30 2011-11-30 2011-12-30
2011-12-30 2012-01-30
2012-01-30 2012-02-29
2012-02-29 2012-03-29
2012-03-29 2012-04-29
2012-04-29 2012-05-29
2012-05-29 2012-06-30
如果是碰到闰年(比如说2012就是闰年,那么我要的结果是)
合同表 利息表
计息开始时间 计息结束时间 本期起息日 本期结息日
2011-11-30 2012-06-30 2011-11-30 2011-12-30
2011-12-30 2012-01-30
2012-01-30 2012-02-29
2012-02-29 2012-03-30
2012-03-30 2012-04-30
2012-04-30 2012-05-30
2012-05-30 2012-06-30
请看红色部分的不同.
加好友 
发短信
Post By：2011/7/19 10:47:00 [只看该作者]
