| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何设计统计上周订单菜单按钮 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55174) |
| -- 作者：643561836 -- 发布时间：2014/8/12 11:12:00 -- 如何设计统计上周订单菜单按钮 我想在菜单中设计一个统计上周订单的按钮，请问代码如何写？ |
| -- 作者：Bin -- 发布时间：2014/8/12 11:14:00 -- 设置一下统计条件即可 |
| -- 作者：643561836 -- 发布时间：2014/8/12 11:26:00 -- 这里看过了，但是想不出如何设计上周的程序 |
| -- 作者：Bin -- 发布时间：2014/8/12 11:30:00 -- Dim d As Date = Date.Today.AddDays(-7) Dim y As Integer = d.Year Dim w As Integer = d.DayOfWeek \'算出今天是星期几 Dim dt1 As Date = d.AddDays(-w) \'获取本周的第一天 Dim dt2 As Date = d.AddDays(6 - w) \'获取本周的最后一天 Dim Filter As String Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" MessageBox.show(Filter) |
| -- 作者：有点甜 -- 发布时间：2014/8/12 11:30:00 -- 1、你要先做一个统计全部的，这个你会做了吗？
2、在1的基础上，加一个条件即可。
-------------------你先把1做完，然后上传例子看看 |
| -- 作者：神莱之币 -- 发布时间：2014/8/12 11:31:00 -- Dim w As Integer = Date.Today.DayOfWeek
\'算出今天是星期几
这里不是有本周吗，（-w-7）~~（-w-1）,就是上周了 |