DatePart Function
VBA Function, ค่าที่ส่งออกเป็นประเภทข้อมูล Variant (Integer) และเป็นค่าตัวเลขของส่วนที่ระบุ
ไวยากรณ์
DatePart(interval, date[,firstdayofweek[,firstweekofyear]] )
อากิวเมนต์ของฟังก์ชัน DatePart มีความหมาย คือ
| ส่วน |
รายละเอียด |
| interval |
บังคับ, เป็น Expression แบบ String เพื่อระบุลักษณะช่วงเวลาที่ต้องการ |
| date |
บังคับ, เป็นข้อมูลประเภทวันที่ สำหรับใช้ในการคำนวณ |
| firstdayofweek |
ไม่บังคับ,เป็นค่าคงที่เพื่อระบุวันแรกของสัปดาห์ ถ้าไม่กำหนด จะใช้วันอาทิตย์เป็นวันแรกของสัปดาห์ |
| firstweekofyear |
ไม่บังคับ, เป็นค่าคงที่เพื่อระบุสัปดาห์แรกของปี ถ้าไม่กำหนด จะนับสัปดาห์ที่มีวันที่ 1 มกราคมเป็นสัปดาห์แรก |
การตั้งค่า
ค่าอากิวเมนต์ Interval กำหนดค่าได้เป็น
| การกำหนด |
รายละเอียด |
| yyyy |
ปี |
| q |
ไตรมาส |
| m |
เดือน |
| y |
วันของปี |
| d |
วัน |
| w |
วันของสัปดาห์ |
| ww |
สัปดาห์ |
| h |
ชั่วโมง |
| n |
นาที |
| s |
วินาที |
ค่าอากิวเมนต์ firstdayofweek กำหนดค่าได้เป็น
| ค่าคงที่ |
ค่า |
รายละเอียด |
| vbUseSystem |
0 |
ตั้งค่าตาม NLS API |
| vbSunday |
1 |
วันอาทิตย์ (ค่าเริ่มต้น) |
| vbMonday |
2 |
วันจันทร์ |
| vbTuesday |
3 |
วันอังคาร |
| vbWednesday |
4 |
วันพุธ |
| vbThursday |
5 |
วันพฤหัสบดี |
| vbFriday |
6 |
วันศุกร์ |
| vbSaturday |
7 |
วันเสาร์ |
ค่าอากิวเมนต์ firstweekofyear กำหนดค่าได้เป็น
| ค่าคงที่ |
ค่า |
รายละเอียด |
| vbUseSystem |
0
| ตั้งค่าตาม NLS API |
| vbFirstJan1 |
1 |
เริ่มนับจากสัปดาห์ที่มี วันที่ 1 มกราคม (ค่าเริ่มต้น) |
| vbFirstFourdays |
2 |
เริ่มนับจากสัปดาห์แรกของปีที่มีวันอย่างน้อย 4 วัน |
| vbFirstFullWeek |
3 |
เริ่มนับจากสัปดาห์แรกของปีที่มีวันครบ 7 วัน |
ลักษณะการประยุกต์
การใช้ฟังก์ชัน DatePart เพื่อแสดงค่าของส่วนใดส่วนหนึ่งของวันที่ เช่น
วัน เดือน หรือปี ตัวอย่างเช่น DatePart (m, 15 Aug 2000) ค่าเท่ากับ 8
โดยค่าที่ส่งออกมาเป็นตัวเลขซึ่งสามารถนำไปใช้ในการประยุกต์ที่ต้องการค่าที่เป็นตัวเลข
ดูเพิ่มเติม
ฟังก์ชัน DateAdd, ฟังก์ชัน
DateDiff, ฟังก์ชัน Day, ฟังก์ชัน
Format, ฟังก์ชัน Now, ฟังก์ชัน
WeekDay, ฟังก์ชัน Year
ตัวอย่าง
Dim TheDate As Date
Dim Msg
Thedate = InputBox("Enter a date")
Msg = "Quarter: " & DateDiff("q" , TheDate )
MsgBox Msg
ตัวอย่างการประยุกต์ใน Access
การประยุกต์ฟังก์ชัน DatePart สามารถนำไปใช้ใน Criteria ของคิวรี่ เช่น
(DatePart("q", [OrderDate]) = 1 ) And (DatePart("yyyy",
[OrderDate]) = 2000 )
|
