Foxtable(狐表)用户栏目专家坐堂 → 获取日期的写法,求教


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

主题:获取日期的写法,求教

帅哥哟,离线,有人找我吗?
bagih
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:113 积分:1344 威望:0 精华:0 注册:2014/11/12 16:55:00
获取日期的写法,求教  发帖心情 Post By:2016/7/20 14:31:00 [只看该作者]

         Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
这样获取到的是 2017-7-31    如果我想要这种格式呢 2017-7-31 24:59  上面的代码该怎么改

谢谢
        

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/20 14:37:00 [只看该作者]

那时间,获取什么时候的?为什么要这样做?

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


加好友 发短信
等级:幼狐 帖子:113 积分:1344 威望:0 精华:0 注册:2014/11/12 16:55:00
  发帖心情 Post By:2016/7/20 14:50:00 [只看该作者]

 用户手动输入一个年月,然后我从这个年月第一天00:00 and  月份最后一天 的24:00作为筛选条件,筛选记录。

        Dim y As Integer = Forms("index").Controls("ComboBox2").text
        Dim m As Integer = Forms("index").Controls("ComboBox3").text
        Dim dt1 As New Date(y, m, 1)
        Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
         Filter = "ProID = '" & e.newvalue & "' and (结算时间 >= '" & dt1 & "' And 结算时间 <= '" & dt2 &        

        MessageBox.Show(filter)
        e.DataRow("总计") = DataTables("产品").SqlCompute("sum(金额)",filter)

因为那个时间列是 2016-7-26 00:00 这种长格式的,如果不加时间,筛选的不精确

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/20 14:51:00 [只看该作者]

        Dim y As Integer = Forms("index").Controls("ComboBox2").text
        Dim m As Integer = Forms("index").Controls("ComboBox3").text
        Dim dt1 As New Date(y, m, 1)
        Dim dt2 As Date = dt1.AddMonths(1)
         Filter = "ProID = '" & e.newvalue & "' and (结算时间 >= '" & dt1 & "' And 结算时间 < '" & dt2 & "')"

        MessageBox.Show(filter)
        e.DataRow("总计") = DataTables("产品").SqlCompute("sum(金额)",filter)

[此贴子已经被作者于2016/7/20 14:51:39编辑过]

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


加好友 发短信
等级:幼狐 帖子:113 积分:1344 威望:0 精华:0 注册:2014/11/12 16:55:00
  发帖心情 Post By:2016/7/20 14:57:00 [只看该作者]

谢谢,我试试

 回到顶部