Hàm CDATE trong VBA
VBA CDATE là một hàm chuyển đổi kiểu dữ liệu chuyển đổi kiểu dữ liệu là văn bản hoặc chuỗi thành kiểu dữ liệu ngày tháng. Sau khi giá trị được chuyển đổi thành kiểu dữ liệu ngày tháng thì chúng ta có thể thử nghiệm với nội dung ngày tháng.
Cú pháp của CDATE
Dưới đây là cú pháp của hàm CDATE trong VBA.
Biểu thức: Biểu thức có thể là một chuỗi hoặc giá trị văn bản hoặc một biến có chứa giá trị được chuyển đổi thành kiểu dữ liệu ngày.
CDATE xác định định dạng ngày và giờ trong máy tính mà chúng tôi đang làm việc và chuyển đổi giá trị được cung cấp thành cùng một kiểu dữ liệu ngày. Nếu bạn chỉ cung cấp ngày và tháng và bỏ qua năm, thì hàm CDATE lấy năm của hệ thống, hiển thị cùng với ngày và tháng đã cung cấp.
Chúng ta sẽ xem thêm nhiều ví dụ khác trong phần bên dưới.
Làm thế nào để sử dụng hàm CDATE trong Excel VBA?
Ví dụ về hàm CDATE trong Excel VBA.
Ví dụ 1
Trước khi tôi cho bạn xem ví dụ về CDATE, hãy xem đoạn mã dưới đây trước.
Mã:
Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub
Trong phần trên cho biến “k”, tôi đã gán giá trị là “25-12”. Khi tôi thực thi mã này, chúng ta sẽ thấy cùng một giá trị trong hộp thông báo trong VBA.
Nhưng điều này có thể được chuyển đổi thành ngày tháng bằng cách sử dụng hàm VBA CDATE, để xác định một biến nữa là Ngày.
Mã:
Dim k1 As Date
Đối với biến này, “k1” chỉ định hàm CDATE và cung cấp biến “k” chứa chuỗi “25-12”. Và đối với hộp thông báo, hãy hiển thị giá trị biến là “k1” thay vì “k”.
Mã:
k1 = CDate (k)
Bây giờ hãy chạy mã và xem kết quả trong một hộp thông báo.
Vì vậy, kết quả là "12/25/2019".
Nhìn kỹ vào giá trị mà chúng tôi đã cung cấp. Chúng tôi đã cung cấp "25-12" mà chúng tôi đã không cung cấp trong năm.
Trong khi viết bài này, năm hiện tại trong hệ thống của tôi là 2019, vì vậy VBA CDATE đã chuyển đổi giá trị chuỗi “25-12” thành ngày và thêm năm hệ thống 2019 vào đó. Vì vậy, kết quả cuối cùng đọc như 2019/12/25 này nghĩa là 25 ngày Tháng Mười Hai 2019.
Ví dụ số 2
Bây giờ, hãy xem đoạn mã dưới đây.
Mã:
Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
Trong đoạn mã trên cho biến “k”, tôi đã áp dụng số “43889”. Tất cả chúng ta đều biết đây là một số sê-ri, nhưng đối với một biến khác, “KResult”, chúng tôi đã chuyển đổi giá trị này cho đến nay bằng cách sử dụng hàm “CDATE”.
Kết quả tương tự của biến “KResult” được hiển thị trong hộp thông báo.
Chạy mã và xem sự kỳ diệu của hàm “CDATE”.
Nó hiển thị kết quả là “2/28/2020” nếu bạn không quen với ngày tháng trong excel, thì bạn phải tự hỏi điều này đã xảy ra như thế nào.
Ví dụ: nhập cùng một số (43889) vào một trong các ô trong bảng tính.
Đối với điều này, hãy áp dụng định dạng là “DD-MM-YYYY”.
Bây giờ bấm vào Ok và xem kết quả.
Bây giờ kết quả đã thay đổi từ một số thứ tự cho đến nay. Bởi vì chúng tôi đã áp dụng định dạng ngày trên đầu số sê-ri, nó đã hiển thị ngày tương ứng.
Vì vậy, điều này có nghĩa là số sê-ri 43889 bằng ngày 28-02-2020.
Vì vậy, trong mã VBA, hàm CDATE của chúng tôi đã thực hiện điều tương tự bằng cách chuyển đổi giá trị chuỗi thành kiểu dữ liệu ngày.
Ví dụ # 3
Đối với ví dụ này, hãy xem đoạn mã dưới đây.
Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "Ngày 24 tháng 12 năm 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Value3) End Sub
Khi chúng tôi chạy mã này, chúng tôi sẽ nhận được kết quả bên dưới.
Vì vậy, tất cả các giá trị được chuyển đổi thành kiểu dữ liệu ngày với hàm CDATE.
Những điều cần ghi nhớ
- CDATE chỉ chuyển đổi số và giá trị chuỗi thành kiểu dữ liệu ngày.
- Điều này rất hữu ích khi chúng ta sử dụng nó với các chức năng khác.
- Nếu giá trị kiểu dữ liệu sai được cung cấp, thì chúng ta sẽ gặp lỗi không khớp về kiểu.
- Vì ngày và giờ là một phần của số sê-ri, nó chuyển đổi thời gian cũng như thời gian thích hợp.
