Hướng dẫn này sẽ trình bày cách lấy ngày trong VBA.
Có một số cách để lấy ngày hôm nay trong mã VBA, cụ thể là sử dụng VBA Ngày() chức năng hoặc VBA Bây giờ() chức năng.
Hàm Date ()
Các Ngày() hàm cho phép chúng tôi gán ngày hôm nay cho một biến và sau đó hiển thị ngày trong cửa sổ ngay lập tức trong VBE Editor để xem ngày hôm nay.
| 123 | Dim dtToday as DatedtToday = Ngày ()Debug.Print dtToday |
Ngoài ra, chúng ta có thể hiển thị ngày trong hộp tin nhắn.
| 12345 | Sub TestDateDim dtToday as DatedtToday = Ngày ()Msgbox "Ngày hôm nay là" & dtTodayKết thúc Sub |
Hàm Now ()
Các Bây giờ() Hàm hoạt động theo cách tương tự như hàm ngày, nhưng nó bao gồm cả thời gian.
| 12345 | Sub TestDate ()Dim dtToday As DatedtToday = Bây giờ ()MsgBox "Ngày hôm nay là" & dtTodayKết thúc Sub |
Định dạng ngày với VBA
Trong cả hai Ngày() và Bây giờ() các chức năng, ngày tháng được định dạng theo kiểu mặc định như được xác định bởi cài đặt trên PC của chúng tôi. Chúng tôi có thể tùy chỉnh định dạng này bằng VBA Sự sắp xếp hàm số. Vì hàm định dạng sẽ trả về một chuỗi, chúng ta cần khai báo một DÂY biến hơn là một NGÀY Biến đổi.
| 12345 | Sub TestDate ()Dim dtToday As StringdtToday = Định dạng (Ngày, "dd mmmm yyyy")MsgBox "Ngày hôm nay là" & dtTodayKết thúc Sub |
Chúng tôi cũng có thể định dạng Bây giờ() hàm để bao gồm phần thời gian ở định dạng tùy chỉnh.
| 12345 | Sub FormatNow ()Dim dtToday As StringdtToday = Định dạng (Now (), "dd mmmm yy hh: mm: ss am / pm")MsgBox dtTodayKết thúc Sub |
So sánh 2 ngày với VBA
Chúng tôi cũng có thể sử dụng hàm Date để so sánh ngày hôm nay với một ngày khác - chúng tôi có thể muốn tính toán còn bao nhiêu ngày cho đến khi một sự kiện xảy ra! Chúng tôi có thể làm điều này bằng cách sử dụng VBA DateDiff () hàm sẽ trả về một số. Do đó, chúng tôi có thể tuyên bố mộtINTEGER biến để lưu giá trị trả về trong.
| 123456789 | Sub TestDateDiff ()Dim dtToday As DateDim dtSomeDay As DateDim iDays As IntegerdtToday = NgàydtSomeDay = "05/06/2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "Có" & iDays & "ngày giữa 2 ngày"Kết thúc Sub |
Vì Ngày được lưu trữ dưới dạng số, chúng tôi cũng có thể trừ ngày thứ hai từ ngày đầu tiên để có được câu trả lời tương tự.
| 1 | iDays = dtToday - dtSomeDay |
