主题：关于设置信用卡还款日

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日）

其他都对，是什么原因呢

我这样同时生成一个距离“起始记账日”小于5天的账单并以蓝色表示出来呢？达到以下图效果

剩余免息天数不对呀，本来是剩一天应该是-1天，怎么变成-4天了；本来是剩一天应该是-2天，怎么变成-3天了

还有一下问题：