|
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
If d.Month = 2 AndAlso d.Day = Date.DaysInMonth(d.year,2)
d = new Date(d.year,3,31)
Else
d = d.AddMonths(1)
End If
If d > d2 Then
d = d2
End If
r("本期结息日") = d
Loop
End If
|
加好友 
发短信
Post By：2011/7/19 11:26:00 [只看该作者]
