Online Reference

Home

DateAdd Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Variant (Date) และเป็นวันที่ภายในช่วงที่ระบุ

ไวยากรณ์

DateAdd(interval, number, date )

อากิวเมนต์ของฟังก์ชัน DateAdd มีความหมาย คือ

การตั้งค่า

ค่าอากิวเมนต์ Interval กำหนดค่าได้เป็น

ลักษณะการประยุกต์

การประยุกต์ฟังก์ชัน DateAdd สามารถหาวันที่ด้วยการเพิ่มหรือลดจากวันที่ระบุ เช่น การคำนวณหาค่าวันที่ใน 45 วันข้างหน้า

การคำนวณหาค่าวันที่จะไม่ส่งค่าวันที่ที่ไม่มีจริง เช่น การหาวันที่ของ 1 เดือนถัดจาก 31 มกราคม 1999

DateAdd(“m”, 1, “31-Jan-1999)

ผลลัพธ์คือวันที่ 28 กุมภาพันธ์ 1999 แต่ถ้าเป็น 31 มกราคม 2000 จะได้ผลลัพธ์เป็น 29 กุมภาพันธ์ 2000

ถ้า number ไม่ใช้ค่าจำนวนเต็ม (Integer) จะได้รับปรับค่าตามค่าที่ใกล้เคียง

ดูเพิ่มเติม

ฟังก์ชัน DateDiff, ฟังก์ชัน DatePart, ฟังก์ชัน Day, ฟังก์ชัน Format, ฟังก์ชัน Now, ฟังก์ชัน WeekDay, ฟังก์ชัน Year

ตัวอย่าง

Dim FirstDate As Date
Dim IntervalType As String
Dim Number As Integer
Dim Msg

IntervalType = "m"
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of month to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox = Msg

ตัวอย่างการประยุกต์ใน Access

การกำหนดฟังก์ชัน DateAdd ในตัว Control แบบ Text box ให้กำหนดที่คุณสมบัติ ControlSource ในรูปแบบ

=DateAdd("d", 30, [OrderDate] )