now() ' ไม่ต้องใส่ อากิวร์เมนต์
= วันและเวลา ขณะนี้ ยึดตาม system
Date() ' ไม่ต้องใส่ อากิวร์เมนต์
   = วันที่ของวันที่ (รวมเดือนและปี)
Day(s)
    = เลือกเฉพาะวันที่ จาก s โดยที่ s ต้องเป็นข้อมูลชนิด Date/Time
Month(s)
    = เลือกเฉพาะเดือน จาก s โดยที่ s ต้องเป็นข้อมูลชนิด Date/Time
Year(s)
    = เลือกเฉพาะปี จาก s โดยที่ s ต้องเป็นข้อมูลชนิด Date/Time

ยังมีอีกเยอะเลยเกี่ยวกับ วัน-เวลา ค้นหาเพิ่มเติมใน "help ของ access", "Internet search engine", "help ของโปรแกรมทั่วๆ ไปของค่าย ไมโครซอฟท์"

ตัวอย่าง การหาเฉพาะวันที่ ของวันนี้
a = Day(now())   ' a เป็นข้อมูลชนิดตัวเลข

ตัวอย่างการหา เฉพาะเดือน ของวันนี้
a = Month(now())    ' a เป็นข้อมูลชนิดตัวเลข

คำถามส่งท้าย
จงเขียนโค้ด หาวันสิ้นเดือน ของเดือนนี้ (จะ 28 , 29 , 30 หรือ 31)

ขอบคุณครับ

คำถามส่งท้าย จงเขียนโค้ด หาวันสิ้นเดือน ของเดือนนี้ (จะ 28 , 29 , 30 หรือ 31)

ตอบ
(DateAdd("m",1,Now()) - DatePart("d",DateAdd("m",1,Now())))

ขอตอบครับผม
?DateSerial(DatePart("yyyy", Date), DatePart("m", Date) + 1, 1) - 1

ขอต่ออีกสักนิดครับ สำหรับเพื่อน ๆ ที่ต้องการลองว่าได้ผลจริงหรือเปล่า ลองเปิดไฟล์ Access ของท่านแล้วกด Ctrl + G จะมีหน้าต่างโชว์ขึ้นมาตรงช่อง Immediate ให้นำ
?DateSerial(DatePart("yyyy", Date), DatePart("m", Date) + 1, 1) - 1
แล้วลองกด Enter ดูจะเห็นคำตอบครับ

ลองเปลี่ยนมุมมองจาก datepart แล้วจะใช้ฟังก์ชั่นอื่นพอไหวมั้ย
หลายท่านเล่น datepart กันมาเยอะแล้ว
นึกอะไรไม่ออก ใช้เงื่อนไขเดือนก็พอได้(มั้ง)
ผมขอลองใช้switch หรือ iif ในtextbox

=Switch(Month(Date())='1','31',Month(Date())='2','28',Month(Date())='3','31',Month(Date())='5','31',Month(Date())='7','31',Month(Date())='8','31',Month(Date())='10','31',Month(Date())='12','31',True,'30')
น่าจะพอได้นิดหน่อยกับคำตอบ
เฮ้อ เล่นกับด้วย