以当前时间取周一日期

Question

谁来帮忙搞定，现有一报表提交系统需要根据当前系统时间，判断出来周一的时间，做出提交
礼拜天算做每周的最后一天。
刚才查了下日期函数好像不能直接搞定
哪位大侠帮个忙了

Answer 1

i= Weekday(Date, vbMonday)
得出来的值是当前星期几，如果是1今天就是周一
如果不是1，那么就是2，3，4，5几个数，然后用dateadd来做一下减法就好了
MsgBox DateAdd("d", 1-i, Date)

Answer 2

刚刚做个项目，新鲜出炉Cheers!Public Function GetWeekStartDate(ByVal InDate As Date, ByVal WeekBeginsOn As VbDayOfWeek) As Date   '// 返回这周的第一天   GetWeekStartDate = InDate - Weekday(InDate, WeekBeginsOn) + 1End FunctionPrivate Sub Form_Load()
  Debug.Print "现在时间是 " & Now & "              当前时间取周一日期是 " & Format$(GetWeekStartDate(Now, vbMonday), "yyyy-mm-dd")
End Sub现在时间是 7/9/2007 8:01:43 PM              当前时间取周一日期是 2007-07-09