Chúng ta đã xem qua biến, kiểu dữ liệu và hằng số là gì, trong hướng dẫn Kiểu dữ liệu VBA - Biến và Hằng số của chúng tôi. Trong hướng dẫn này, chúng ta sẽ trình bày cách khai báo một biến dưới dạng ngày tháng.
Trong VBA, kiểu dữ liệu ngày được lưu trữ dưới dạng số thập phân. Cả ngày và giờ đều có thể được lưu trữ trong kiểu dữ liệu này. Kiểu dữ liệu ngày VBA có thể lưu trữ các giá trị từ ngày 1 tháng 1 100 - 31 tháng 12 năm 9999.
Biến ngày VBA
Bạn khai báo một biến dưới dạng ngày tháng bằng cách sử dụng từ khóa Dim:
| 1 | Làm mờ ngày |
Sau đó, bạn có thể chỉ định ngày cho biến ngày. Có nhiều cách để tạo ngày để gán cho các biến:
Gán ngày hôm nay cho biến
Hàm Date sẽ trả về ngày hôm nay:
| 123 | Dim dtTodaydtToday = Ngày |
Gán ngay cho biến
Hàm Now sẽ trả về ngày và giờ hiện tại của ngày hôm nay:
| 123 | Dim dNowdNow = Bây giờ |
Gán thời gian cho biến
Hàm Thời gian sẽ trả về thời gian hiện tại:
| 123 | Dim tTimetTime = Thời gian |
Gán ngày cho biến bằng DateSerial
Hàm DateSerial sẽ trả về một ngày dựa trên đầu vào năm, tháng và ngày:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Gán thời gian cho biến bằng TimeSerial
Hàm TimeSerial sẽ trả về thời gian, dựa trên giờ, phút và giây đã nhập:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Bạn phải bao gồm ngày tháng bằng # hoặc ”khi sử dụng chúng trong mã của mình, như được hiển thị bên dưới:
Hàm DateValue VBA
Hàm DateValue VBA có thể được sử dụng để khởi tạo một ngày tháng. Đoạn mã sau có thể được sử dụng để khởi tạo một ngày trong VBA:
| 1 | MsgBox DateValue ("1/1/2010") |
Hàm VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Ví dụ về biến ngày trong Excel VBA
Quy trình này trình bày cách tạo các biến ngày, gán giá trị cho chúng và xuất chúng vào một trang tính Excel:
| 12345678910111213 | Khai báo phụAVariableAsADate ()Làm mờ ngàyLàm mờ ngày tháng Hai như ngày thángdateOne = # 1/1/2019 #dateTwo = "1/2/2019"Phạm vi ("A1"). Giá trị = dateOnePhạm vi ("A2"). Giá trị = dateTwoKết thúc Sub |
Kết quả là:
Bạn có thể tìm hiểu thêm về Hàm ngày trong hướng dẫn này.
Biến ngày VBA trong Access
Biến ngày hoạt động hoàn toàn giống trong Access VBA như trong Excel VBA.
Thủ tục này trình bày cách tạo một biến ngày và cập nhật một trường trong bảng truy cập với giá trị.
| 12345 | Khai báo phụAVariableAsADate ()Dim dtWork As DatedtWork = # 05/10/2020 #DoCmd.RunSql "CẬP NHẬT tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"Kết thúc Sub |
