ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_design&Number=217431&Forum=All_Forums&Words=TimK&Match=Username&Searchpage=0&Limit=25&Old=allposts&Main=217403&Search=true#Post217431

ลองใช้โค้ดนี้ครับ

วันจันทร์ก่อนหน้า
code:
--------------------------------------------------------------------------------
Function FirstofWorkWeek(MyDate As Date) As Date
FirstofWorkWeek = DateDiff("d", WeekDay(MyDate - 1, vbMonday), MyDate )End Function
--------------------------------------------------------------------------------

วันจันทร์ถัดไป
code:
--------------------------------------------------------------------------------
Function ComingMonday(MyDate As Date) As Date
ComingMonday = DateAdd("d", (7 - (WeekDay(MyDate, vbTuesday))), MyDate)
End Function
--------------------------------------------------------------------------------