主题：关于日期计算问题

根据当前月份？

msgbox(date.today.month)

请具体说明你要做什么。年份影响的只有2月。

1、如果是信用卡，参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65220&authorid=0&page=0&star=1

2、还款日都是固定某一天的，而不是20天后。提前提醒，一般是根据当天的日期进行判断，当天的日期，那就可以得到年份、月份了啊。

1、请上传具体实例，说明你要做的效果。

2、请截图说明你要做什么。

控制红色代码，即可控制要生成什么日期的账单

Dim dt_xyk As DataTable = DataTables("信用卡")
Dim dt_lsz As DataTable = DataTables("流水账")
Dim dt_dyyh As DataTable = DataTables("当月应还")
dt_dyyh.DataRows.Clear
For Each dr As DataRow In dt_xyk.DataRows
    Dim ndr As DataRow = dt_dyyh.AddNew
    ndr("账户名称") = dr("账户名称")
    Dim d As Date = new Date(2018, 1, 1)
    ndr("账单日") = d.AddDays(dr("账单日")-1)
    ndr("转出") = dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 日期 >= #" & ndr("账单日").addmonths(-1) & "# and 日期 <= #" & ndr("账单日") & "# and 类别 = '转出'")
    ndr("转入") = dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 日期 >= #" & ndr("账单日").addmonths(-1) & "# and 日期 >= #" & ndr("账单日") & "# and 类别 = '转入'")
    ndr("信用额度") = dr("信用额度")
    ndr("当月应还") = ndr("转出") - ndr("转入")
    ndr("可用额度") = ndr("信用额度") - ndr("转出") + ndr("转入")
    If val(dr("还款日")) < val(dr("账单日")) Then
        ndr("还款日") = d.AddDays(dr("还款日")-1).AddMonths(1)
    Else
        ndr("还款日") = d.AddDays(dr("还款日")-1)
    End If
Next
e.Form.Controls("Table1").Table.DataSource = DataTables("当月应还")

最后对表格进行筛选

e.Form.Controls("Table1").Table.Filter = "当月应还 > 0"

没看懂你什么意思。根据什么逻辑显示账单状态？

如果当月应还大于0，就是需要还款的啊。上期、本期、下期账单，控制日期生成啊，看15楼代码。