Dim dt_xyk As DataTable = DataTables("信用卡")
Dim dt_yk As DataTable = DataTables("用卡")
dt_yk .DataRows.Clear
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
Dim ds() As Date = {d, d.AddMonths(1)}
d = d.AddMonths(-1)
For Each dr As DataRow In dt_xyk.DataRows
Dim ndr As DataRow = dt_yk .AddNew
ndr("卡号") = dr("卡号")
ndr("账户名称") = dr("账户名称")
ndr("账单日") =dr("账单日")
ndr("还款日") =dr("还款日")
ndr("起始记账日") = d.AddDays(dr("账单日")).AddMonths(0)
ndr("结束记账日") = d.AddDays(dr("账单日")-1).AddMonths(1)
ndr("固定还款日") = dr("固定还款日")
If dr("固定还款日") = False Then
ndr("到期还款日") = cdate(ndr("起始记账日")).AddDays(dr("还款日")-1)
Else
If val(dr("还款日")) < val(dr("账单日")) Then
ndr("到期还款日") = d.AddDays(dr("还款日")-1).AddMonths(1)
Else
ndr("到期还款日") = d.AddDays(dr("还款日")-1)
End If
End If
Next
我在窗体的按钮的点击事件写了如上代码,运行后发现有两个银行的"起始记账日"和“结束记账日”不对
一个是民生银行信用卡记账日为0,还款日为每月25号(应该起始记账日为2018年2月1日和结束记账日2018年2月28日);交通银行信用卡记账日为5,还款日为账单日后30天(应该起始记账日为2018年2月6日和结束记账日2018年3月5日)
其他都对,是什么原因呢
此主题相关图片如下:565.jpg