Dim dt_xyk As DataTable = DataTables("信用卡")
Dim dt_lsz 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 begin As Date
Dim enddate As Date
If dr("账单日")+1 <= Date.today.day Then
begin = d.AddDays(dr("账单日")).AddMonths(1)
enddate = d.AddDays(dr("账单日")-1).AddMonths(2)
Else
begin = d.AddDays(dr("账单日")).AddMonths(0)
enddate = d.AddDays(dr("账单日")-1).AddMonths(1)
End If
Dim dq As Date
If dr("固定还款日") = False Then
dq = enddate.AddDays(dr("还款日"))
Else
dq = d.AddDays(dr("还款日")-1).AddMonths(2)
End If
Dim ndr As DataRow = dt_yk .AddNew
ndr("卡号") = dr("卡号")
ndr("账户名称") = dr("账户名称")
ndr("信用额度") = dr("信用额度")
ndr("账单日") =dr("账单日")
ndr("还款日") =dr("还款日")
ndr("可用额度") = ndr("信用额度") -(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转出'"))-(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转入'"))
ndr("起始记账日") = begin
ndr("结束记账日") = enddate
ndr("到期还款日") =dq
ndr("固定还款日") = dr("固定还款日")
ndr("免息天数") = (dq - Date.today).TotalDays - 5
Next
加好友 
发短信
Post By：2018/2/11 16:42:00 [显示全部帖子]
