以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DayOfWeek能否设置为周一为每周的第一天  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49302)
--  作者：ibehujun
--  发布时间：2014/4/15 17:18:00
--  DayOfWeek能否设置为周一为每周的第一天

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

 

DayOfWeek

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

例如：

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

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

注意如果是星期天，返回值是0，因为星期天被认为是每周的第一天。
[此贴子已经被作者于2014-4-15 17:19:18编辑过]
--  作者：lsy
--  发布时间：2014/4/15 17:22:00
--  
大众习惯周日算第一天，周几算第一天，你自己可以规定的，与这个函数没关系。
--  作者：ibehujun
--  发布时间：2014/4/15 19:36:00
--  

以下代码老是把上周日统计到本周了。关键是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
--  作者：有点甜
--  发布时间：2014/4/15 20:04:00
--  

 你改一下就好

 

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
--  作者：ibehujun
--  发布时间：2014/4/15 21:11:00
--  
多谢甜兄，真是一语惊醒梦中人啊~ From 一名业余的程序员的谢意