复杂一点这样。
http://www.foxtable.com/help/topics/0229.htm http://www.foxtable.com/help/topics/0265.htm
Dim d As Integer = Date.Today
.DayOfWeek
"日期 >= '" & Date.Today.AddDays(-d) & "' And 日期 < '" & Date.Today.AddDays(8-d) & "'"
Dim start As Date = New Date(Date.Today.Year, Date.Today.Month, 1)
"日期 >= '" & start & "' And 日期 < '" & start.AddDays(Date.DaysInMonth(start.Year, start.Month)) & "'"
[此贴子已经被作者于2012-12-6 14:36:24编辑过]
加好友 
发短信
Post By：2012/12/6 14:35:00 [显示全部帖子]
