12/12/2018, 09:18
Hàm DateAdd() trong VBA
Chuỗi (String) trong VBA 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 ...
Chuỗi (String) trong VBA
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
Chuỗi (String) trong VBA
