Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于设置信用卡还款日


  共有6183人关注过本帖树形打印复制链接

主题：关于设置信用卡还款日
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/22 21:03:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/22 21:47:00 [显示全部帖子]

做一个表，记录每种银行卡的账单日是多少天

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/22 22:36:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/22 23:00:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/23 21:25:00 [显示全部帖子]

If dr("固定还款日") = True Then
    ndr("还款日") = cdate(ndr("账单日")).AddDays(val(dr("还款日")))
Else
    If val(dr("还款日")) < val(dr("账单日")) Then
        ndr("还款日") = d.AddDays(dr("还款日")-1).AddMonths(1)
    Else
        ndr("还款日") = d.AddDays(dr("还款日")-1)
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 9:46:00 [显示全部帖子]

if (cdate(dr("账单日")) - date.today).TotalDays < 5 then
msgbox("小于5天")
end if
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 11:00:00 [显示全部帖子]

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 起始记账日 As Date
    Dim 结束记账日 As Date
    If dr("账单日")+1 <= Date.today.day Then
        起始记账日 = d.AddDays(dr("账单日")).AddMonths(1)
        结束记账日 = d.AddDays(dr("账单日")-1).AddMonths(2)
    Else
        起始记账日 = d.AddDays(dr("账单日")).AddMonths(0)
        结束记账日 = d.AddDays(dr("账单日")-1).AddMonths(1)
    End If
    Dim 到期还款日 As Date
    If dr("固定还款日") = False Then
        到期还款日 = cdate(ndr("结束记账日")).AddDays(dr("还款日"))
    Else
        到期还款日 = d.AddDays(dr("还款日")-1).AddMonths(2)
    End If
    If (到期还款日 - Date.today).TotalDays < 5 And (到期还款日 - Date.today).TotalDays > 0  Then
        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("起始记账日") = 起始记账日
        ndr("结束记账日") = 结束记账日
        ndr("到期还款日") =到期还款日
        ndr("固定还款日") = dr("固定还款日")
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 11:18:00 [显示全部帖子]

上传实例

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 14:28:00 [显示全部帖子]

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
    If (dq - Date.today).TotalDays < 5 AndAlso (dq - Date.today).TotalDays > 0  Then
        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("固定还款日")
    End If
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 16:08:00 [显示全部帖子]

其它记录都大于5天呗

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询