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


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

主题：关于设置信用卡还款日
帅哥哟，离线，有人找我吗？
裴保民
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/2/11 11:40:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信用卡还款 - 副本 (2) - 副本.rar


写到"用卡窗体"中"最短免息提示"按钮单击事件代码保存不了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/2/11 16:01:00 [只看该作者]

怎么就两条记录呢?其他卡记录呢？

图片点击可在新窗口打开查看此主题相关图片如下：阿里旺旺图片20180211160006.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

其它记录都大于5天呗

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/2/11 16:25:00 [只看该作者]

对 我的意思是：
如果有银行卡的免息天数小于5时，就增加一行数据，并将免息天数＜5的数据该字段转化为负数显示
同时还要生成正常数据

如下图效果：

图片点击可在新窗口打开查看此主题相关图片如下：564.png
图片点击可在新窗口打开查看




[此贴子已经被作者于2018/2/11 16:33:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 16:42: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
    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
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/2/12 8:24:00 [只看该作者]

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

还有一下问题：

 


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180212085527.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/2/12 8:56:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/12 8:38:00 [只看该作者]

ndr("免息天数") = (dq - Date.today).TotalDays - 5

 

改成

 

ndr("免息天数") = -1 * (dq - Date.today).TotalDays


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/2/12 8:41:00 [只看该作者]

或者

 

ndr("免息天数") = iif((dq - Date.today).TotalDays>5, dq - Date.today).TotalDays, -1 * dq - Date.today).TotalDays)
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2018/2/12 8:57:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180212085527.png
图片点击可在新窗口打开查看
 回到顶部
总数 53 上一页 1 2 3 4 5 6 下一页
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 次数据查询