Foxtable(狐表)用户栏目专家坐堂 → 关于日期计算问题


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

主题:关于日期计算问题

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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信用卡程序.foxdb


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


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


图片点击可在新窗口打开查看此主题相关图片如下:zd.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信用卡程序.foxdb



甜老师这段代码:(1)本月应还额怎么把2015年的消费记录都算进去了呢? (2)怎么消费额度超过信用额度了呢?

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

[此贴子已经被作者于2018/1/17 9:00:09编辑过]

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


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

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(Date.Today.year, Date.Today.Month, 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("当月应还")

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


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

怎么设置为只显示最近两期的账单呢?即已出账单和未出账单。并且不显示空账单,
[此贴子已经被作者于2018/1/18 16:56:04编辑过]

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


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

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

 

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("当月应还")


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


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

如果银行卡是空账就没必要显示在应还表中了,怎么设置成不显示空账单银行卡呢?

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


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

以下是引用裴保民在2018/1/18 18:20:00的发言:
如果银行卡是空账就没必要显示在应还表中了,怎么设置成不显示空账单银行卡呢?

 

最后对表格进行筛选

 

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


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


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

“还款”表中有一个“账单状态”字段,怎么从“流水账”表中提取数据后再给“账单状态”字段赋值?(即本期账单显示“已出账单,未还款”;下期期账单显示“未出账单,未还款”;本期以前的未还账单显示“逾期账单,未还款”),只要已还款此表就不显示该条记录了,另外生成的账单有一个“账单月份”要显流水账应对的日期的“年份加月份”,怎么设置呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信用卡程序.foxdb




[此贴子已经被作者于2018/1/19 16:52:27编辑过]

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


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

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

 

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


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


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

这张表的意义是显示还款情况的,其中有两个字段分别是“账单段月”和“账单状态”想实现:
(1)“账单段月”显示的是表本期和下期的的年份和月份。
(2)“账单状态”显示的是(即本期账单未还款切以前各期未逾期时要显示“已出账单,未还款”;下期期账单显示为“未出账单,未还款”;本期以前各期如果有未还款或未足额还款时账单要显示为“逾期账单,未足额还款”应还额应该是未还额的合计)

 回到顶部
总数 39 上一页 1 2 3 4 下一页