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


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

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

帅哥哟,离线,有人找我吗?
裴保民
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 

其他都对,是什么原因呢

 

 


图片点击可在新窗口打开查看此主题相关图片如下:565.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

    If dr("账单日") <= date.today.day Then

        ndr("起始记账日") = d.AddDays(dr("账单日")).AddMonths(1)
        ndr("结束记账日") = d.AddDays(dr("账单日")-1).AddMonths(2)

    Else

        ndr("起始记账日") = d.AddDays(dr("账单日")).AddMonths(0)
        ndr("结束记账日") = d.AddDays(dr("账单日")-1).AddMonths(1)

    End If

 


 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下:478.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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

费了半天没不成了手指点
[此贴子已经被作者于2018/2/10 22:19:28编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


此主题相关图片如下:852.jpg
按此在新窗口浏览图片

蓝老师无法保存


if (cdate(dr("账单日")) - date.today).TotalDays < 5 then
msgbox("小于5天")
end if
加到哪呢?



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 ndr As DataRow = dt_yk .AddNew
If (cdate(dr("账单日")) - Date.today).TotalDays < 5 And (cdate(dr("账单日")) - Date.today).TotalDays > 0  Then
    ndr("卡号") = dr("卡号")
    ndr("账户名称") = dr("账户名称")
    ndr("信用额度") = dr("信用额度")
    ndr("账单日") =dr("账单日")
    ndr("还款日") =dr("还款日")
    ndr("可用额度") = ndr("信用额度") -(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转出'"))-(dt_lsz.Compute("sum(金额)", "账户名称 = '" & ndr("账户名称") & "' and 类别 = '转入'"))
    If dr("账单日")+1 <= Date.today.day Then
        ndr("起始记账日") = d.AddDays(dr("账单日")).AddMonths(1)
        ndr("结束记账日") = d.AddDays(dr("账单日")-1).AddMonths(2)
    Else
        ndr("起始记账日") = d.AddDays(dr("账单日")).AddMonths(0)
        ndr("结束记账日") = d.AddDays(dr("账单日")-1).AddMonths(1)
    End If
    ndr("固定还款日") = dr("固定还款日")
    If dr("固定还款日") = False Then
        ndr("到期还款日") = cdate(ndr("结束记账日")).AddDays(dr("还款日"))
    Else
        ndr("到期还款日") = d.AddDays(dr("还款日")-1).AddMonths(2)
    End If
End If
Next

对吗?运行后错误

此主题相关图片如下:5555.jpg
按此在新窗口浏览图片

[此贴子已经被作者于2018/2/11 10:22:45编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

蓝老师保存不了,出现未知错误

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

写到"用卡窗体"中"最短免息提示"按钮单击事件代码保存不了

[此贴子已经被作者于2018/2/11 11:20:05编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上传实例

 回到顶部
总数 53 上一页 1 2 3 4 5 6 下一页