以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取日期的写法，求教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87820)
--  作者：bagih
--  发布时间：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  上面的代码该怎么改

谢谢
        
--  作者：大红袍
--  发布时间：2016/7/20 14:37:00
--  
那时间，获取什么时候的？为什么要这样做？
--  作者：bagih
--  发布时间：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 这种长格式的，如果不加时间，筛选的不精确
--  作者：大红袍
--  发布时间：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
--  发布时间：2016/7/20 14:57:00
--  
谢谢，我试试