Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]还是关于日期得问题


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

主题：[求助]还是关于日期得问题
帅哥哟，离线，有人找我吗？
jsjxjsj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：241 威望：0 精华：0 注册：2014/1/18 22:41:00 		[求助]还是关于日期得问题  发帖心情 Post By：2019/9/4 17:02:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：xyk11.png
图片点击可在新窗口打开查看
做了一个信用卡管理得表，重置列时老是出错。头大

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


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/4 17:48:00 [只看该作者]

贴出代码，而不是截图，这样别人没有办法改。

另外没看懂这个代码要做什么？
 回到顶部
帅哥哟，离线，有人找我吗？
jsjxjsj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：241 威望：0 精华：0 注册：2014/1/18 22:41:00 		  发帖心情 Post By：2019/9/4 17:55:00 [只看该作者]

表事件

 

信用卡信息表_DataColChanged

 

Select Case e.DataCol.Name

    Case "账单固定日","还款固定日"

        Dim cd As DataRow=e.DataRow

        Dim d1 As Date=Date.Today

        Dim y As Integer =d1.year

        Dim m As Integer=d1.month

        Dim d As Integer=d1.day

        If cd.isnull("账单固定日") OrElse cd.Isnull("还款固定日") Then

            cd("账单日")=Nothing And cd("最后还款日")=Nothing

        Else

            cd("账单日")=new Date(y,m,cd("账单固定日"))

            If cd("账单固定日")>cd("还款固定日") Then

                If m<12 Then

                    m=m+1

                Else

                    y=d1.AddYears(1).year

                    m=1

                End If

            End If

            If cd("还款固定日")=31 Then

                d=Date.daysinmonth(y,m)

                cd("最后还款日")= new Date(y,m,d)

            Else

                cd("最后还款日")= new Date(y,m,cd("还款固定日"))

            End If

        End If

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


加好友 发短信
等级：婴狐 帖子：20 积分：241 威望：0 精华：0 注册：2014/1/18 22:41:00 		  发帖心情 Post By：2019/9/4 17:59:00 [只看该作者]

把完整代码发出来，突然又莫名其妙不出错了。搞不懂。

就是做个简单得练习，通过整数的 “固定账单日”和“还款固定日”，看怎么得到实际的“账单日”和“最后还款日”。举个列子，信用卡账单日是28号，最后还款日是下月17号，怎么得到实际日期。
 回到顶部
帅哥哟，离线，有人找我吗？
jsjxjsj
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：241 威望：0 精华：0 注册：2014/1/18 22:41:00 		  发帖心情 Post By：2019/9/4 18:01:00 [只看该作者]

新手刚学，还有可多东西没弄明白，说的不清楚得地方，还望谅解

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


加好友 发短信
等级：超级版主 帖子：107718 积分：547917 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/5 8:28:00 [只看该作者]

举个列子，信用卡账单日是28号，最后还款日是下月17号，怎么得到实际日期。-- 实际日期应该是哪个日期？

Select Case e.DataCol.Name
    Case "账单固定日","还款固定日"
        Dim cd As DataRow=e.DataRow
        Dim d1 As Date=Date.Today
        Dim y As Integer =d1.year
        Dim m As Integer=d1.month
        Dim d As Integer=d1.day
        If cd.isnull("账单固定日") OrElse cd.Isnull("还款固定日") Then
            cd("账单日")=Nothing
            cd("最后还款日")=Nothing
        Else
            Dim d2 As Date = new Date(y,m,Date.DaysInMonth(y,m))
            If d2.Day < cd("账单固定日")
                cd("账单日")= d2
            Else
                cd("账单日")=new Date(y,m,cd("账单固定日"))
            End If
            If cd("账单固定日")>cd("还款固定日") Then
                If m<12 Then
                    m=m+1
                Else
                    y=d1.AddYears(1).year
                    m=1
                End If
            End If
            If cd("还款固定日")=31 Then
                d=Date.daysinmonth(y,m)
                cd("最后还款日")= new Date(y,m,d)
            Else
                cd("最后还款日")= new Date(y,m,cd("还款固定日"))
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
jsjxjsj
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：241 威望：0 精华：0 注册：2014/1/18 22:41:00 		  发帖心情 Post By：2019/9/5 11:37:00 [只看该作者]

Dim d2 As Date = new Date(y,m,Date.DaysInMonth(y,m))
            If d2.Day < cd("账单固定日")
                cd("账单日")= d2
            Else
                cd("账单日")=new Date(y,m,cd("账单固定日"))
            End If


还是你考虑得严谨些，谢了。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询