以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最后一天和第一天改如何修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44930)
--  作者：wuxianzuoji41
--  发布时间：2014/1/12 0:39:00
--  最后一天和第一天改如何修改

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter

 

 

如果日期是SQL SERVER 2013-12-31 08:20:25 这样格式的数据，以上的代码无法统计最后一天的数据，这个最后一天和第一天改如何修改

 
--  作者：sloyy
--  发布时间：2014/1/12 10:44:00
--  

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m+1, 1) \'获取 下个月的第一天

Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#"
Tables("订单").Filter = Filter