主题：DayOfWeek能否设置为周一为每周的第一天

DayOfWeek能否设置为周一为每周的第一天？

 

DayOfWeek

返回日期为该星期的第几天，也就是星期几。

例如：

Dim d As Date = Date.Today
Output.Show(d.DayOfWeek)

上述的代码会显示今天是星期几。

注意如果是星期天，返回值是0，因为星期天被认为是每周的第一天。

大众习惯周日算第一天，周几算第一天，你自己可以规定的，与这个函数没关系。

以下代码老是把上周日统计到本周了。关键是DayOfWeek周日的返回值。

 

筛选本周数据

例如筛选本周的订单：

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter

 你改一下就好

 

Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek  '算出今天是星期几

if w = 0 then w = 7
Dim dt1 As Date = Date.Today.AddDays(1-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(7 - w) '获取本周的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter

多谢甜兄，真是一语惊醒梦中人啊~ From 一名业余的程序员的谢意