คิวรี่ แบบ Between ไม่ต้องมี and ได้ไหมครับ
กระทู้เก่าบอร์ด อ.Yeadram

 1,390   9
URL.หัวข้อ / URL
คิวรี่ แบบ Between ไม่ต้องมี and ได้ไหมครับ

หารายจ่ายประจำเดือนโดยใช้คิวรี่ Between [วันที่เริ่ม] And [ถึงวันที่]
เรียนถามว่าจะมีวิธีอย่างไรบ้างไหมครับว่า ให้กรอกเฉพาะ "วันที่เริ่ม" อย่างเดียว แล้วให้โปรแกรมคิดให้เองว่า "ถึงวันที่" หมายถึงวันสิ้นเดือนนั้น ๆ

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

1 @R08543
ตามนี้เลยครับจะได้เท่ากับวันที่สิ้นเดือน
DateSerial (Year([วันที่เริ่ม]), month([วันที่เริ่ม])+1,0)
2 @R08544
ตรงตามที่ต้องการ สุดยอดมาก ขอบพระคุณท่าน "แดน" เป็นอย่างสูงครับ
3 @R08546
อิอิ วันที่ 0
คิดได้ไง แจ่มครับ ขอลอก ๆ
เอาไว้ไปใช้บ้าง
4 @R08548
วันที่ 0 สุดยอด 555
5 @R08555
ขอถามเพิ่มครับแล้ว จะหารายการนัดชำระของลูกค้าวันนี้ถึงสิ้นเดือนอะครับ โดยไม่ใช้ Between Date() And #31/03/2011# ตอนนี้ใช้อย่างนี้อยู่ คือไม่อยากมาแก้วันสิ้นเดือนแต่ะละเดือนครับ
6 @R08556
ให้คุณเด็กดีนำฟังก์ชั่นนี้ไปวางใน Module ก่อนครับ

Public Function MonthEnd() As Date
    MonthEnd = DateValue(("01" + "/" + CStr(IIf(Month(Now()) = 12, 1, Month(Now()) + 1)) + "/" + CStr(IIf(Month(Now()) = 12, Year(Now()) + 1, Year(Now()) + 543)))) - 1
    Debug.Print MonthEnd
End Function

จากนั้นให้นำฟังก์ชั่นนี้ไปใช้ในคิวรี่ครับ ต.ย. เช่น

Between Now() And MonthEnd()

ลองดูครับ
7 @R08557
ก็อย่างนี้งัยครับ
Between Date() And DateSerial (Year(Date())month(Date())+1,0)
8 @R08558
ขออนุญาตครับของคุณ Un ต้องใส่ , เพิ่มด้วยครับ
Between Date() And DateSerial(Year(Date()),Month(Date())+1,0)

ส่วนตัวอย่างของผมที่ให้ไว้เป็นฟังก์ชั่นสำหรับหาวันที่สิ้นเดือนของเดือนนั้นๆ ครับ ผมลืมดูไปว่าให้หาเป็นปี ค.ศ. ดังนั้น ในฟังก์ชั่นไม่ต้องบวก 543 ครับ

Public Function MonthEnd() As Date
    MonthEnd = DateValue(("01" + "/" + CStr(IIf(Month(Now()) = 12, 1, Month(Now()) + 1)) + "/" + CStr(IIf(Month(Now()) = 12, Year(Now()) + 1, Year(Now()))))) - 1
    Debug.Print MonthEnd
End Function
9 @R08559
ขอบพระคุณ คุณ Sak และุคุณ UN อย่างแรงครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3301s