主题：如何设计统计上周订单菜单按钮

Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天

这里不是有本周吗，（-w-7）~~（-w-1）,就是上周了