以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  输入一个日期，计算出这个日期在一周中的第一天和最后一天日期。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82666)
--  作者：大红袍
--  发布时间：2016/3/22 15:30:00
--  

Dim d As Date = "2016-03-18"

Dim y As Integer = d.Year
Dim w As Integer = d.DayOfWeek \'算出今天是星期几
w = iif(w=0, 7, w)
Dim dt1 As Date = d.AddDays(-w+1) \'获取本周的第一天
Dim dt2 As Date = d.AddDays(7 - w) \'获取本周的最后一天

msgbox(dt1 & " " & dt2)