หาวันที่ของวันจันทร์ที่ก่อนหน้า และวันจันทร์หลังจากวันที่ที่ระบุ
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 243   1
URL.หัวข้อ / URL
หาวันที่ของวันจันทร์ที่ก่อนหน้า และวันจันทร์หลังจากวันที่ที่ระบุ

ถามไว้ที่ 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
--------------------------------------------------------------------------------

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03006
ขอบคุณ อ.สุภาพ สำหรับความรู้ดีๆ ครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0390s