主题：获取日期的写法，求教

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

谢谢
        

那时间，获取什么时候的？为什么要这样做？

 用户手动输入一个年月，然后我从这个年月第一天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 这种长格式的，如果不加时间，筛选的不精确

        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)

谢谢，我试试