Hàm DateAdd() trong VBA trả về ngày mà khoảng thời gian đã chỉ định đã được thêm vào.
Cú pháp
DateAdd(interval, number, date)
Mô tả thông số:
- interval: Tham số bắt buộc, Nó có thể lấy các giá trị sau:
- d - ngày trong năm
- m - tháng trong năm
- y - năm của năm
- yyyy - năm
- w - ngày trong tuần
- week - tuần
- q - quý
- h - giờ
- m - phút
- s - giây
- number: Tham số bắt buộc, có thể là số âm hoặc dương.
- date: Tham số bắt buộc, ngày tháng hoặc biểu thức ngày tháng dưới dạng chuỗi.
Ví dụ sử dụng hàm DateAdd() trong VBA
Sub vidu_ham_DateAdd()
Dim date1 As Date
date1 = Date
' cong mot khoang thoi gian
Cells(1, 1) = ("Line 1 : " & DateAdd("yyyy", 1, date1))
Cells(2, 1) = ("Line 2 : " & DateAdd("q", 1, date1))
Cells(3, 1) = ("Line 3 : " & DateAdd("m", 1, date1))
Cells(4, 1) = ("Line 4 : " & DateAdd("y", 1, date1))
Cells(5, 1) = ("Line 5 : " & DateAdd("d", 1, date1))
Cells(6, 1) = ("Line 6 : " & DateAdd("w", 1, date1))
Cells(7, 1) = ("Line 7 : " & DateAdd("ww", 1, date1))
Cells(8, 1) = ("Line 8 : " & DateAdd("h", 1, "01-Jan-2013 12:00:00"))
Cells(9, 1) = ("Line 9 : " & DateAdd("n", 1, "01-Jan-2013 12:00:00"))
Cells(10, 1) = ("Line 10 : " & DateAdd("s", 1, "01-Jan-2013 12:00:00"))
' tru di mot khoang thoi gian
Cells(11, 1) = ("Line 11 : " & DateAdd("yyyy", -1, date1))
Cells(12, 1) = ("Line 12 : " & DateAdd("q", -1, date1))
Cells(13, 1) = ("Line 13 : " & DateAdd("m", -1, date1))
Cells(14, 1) = ("Line 14 : " & DateAdd("y", -1, date1))
Cells(15, 1) = ("Line 15 : " & DateAdd("d", -1, date1))
Cells(16, 1) = ("Line 16 : " & DateAdd("w", -1, date1))
Cells(17, 1) = ("Line 17 : " & DateAdd("ww", -1, date1))
Cells(18, 1) = ("Line 18 : " & DateAdd("h", -1, "01-Jan-2013 12:00:00"))
Cells(19, 1) = ("Line 19 : " & DateAdd("n", -1, "01-Jan-2013 12:00:00"))
Cells(20, 1) = ("Line 20 : " & DateAdd("s", -1, "01-Jan-2013 12:00:00"))
End Sub
Kết quả:
Line 1 : 12/10/2019 Line 2 : 3/10/2019 Line 3 : 1/10/2019 Line 4 : 12/11/2018 Line 5 : 12/11/2018 Line 6 : 12/11/2018 Line 7 : 12/17/2018 Line 8 : 1/1/2013 1:00:00 PM Line 9 : 1/1/2013 12:01:00 PM Line 10 : 1/1/2013 12:00:01 PM Line 11 : 12/10/2017 Line 12 : 9/10/2018 Line 13 : 11/10/2018 Line 14 : 12/9/2018 Line 15 : 12/9/2018 Line 16 : 12/9/2018 Line 17 : 12/3/2018 Line 18 : 1/1/2013 11:00:00 AM Line 19 : 1/1/2013 11:59:00 AM Line 20 : 1/1/2013 11:59:59 AM