以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上个月代码该怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41204)
--  作者：wuxianzuoji41
--  发布时间：2013/10/14 8:37: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 & "#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()


加载上个月呢
--  作者：Bin
--  发布时间：2013/10/14 8:43:00
--  
http://www.foxtable.com/help/topics/2706.htm

不就是
Dim m As Integer = Date.Today.Month
改为
Dim m As Integer = IIF(Date.Today.Month=1,12,Date.Today.Month-1)
--  作者：狐狸爸爸
--  发布时间：2013/10/14 8:50:00
--  

这样可靠一些：


Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
dt1 = dt1.Addmonths(-1)
y = dt1.Year
m = Dt1.Month
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m))

[此贴子已经被作者于2013-10-14 8:58:00编辑过]
--  作者：wuxianzuoji41
--  发布时间：2013/10/14 9:09:00
--  
呵呵，看错了，狐狸爸爸的完全正确，谢谢
[此贴子已经被作者于2013-10-14 9:19:21编辑过]