Dim d As Date = "2016-03-18"
Dim y As Integer = d.YearDim 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)