IsDate Function

Chức năng
Trả về giá trị Boolean(True/False) cho biết biểu thức có đại diện cho giá trị Date hợp lệ.

Cú pháp
IsDate( expression )

Ví Dụ

Sub Function_IsDate() Dim Date1 As Variant Dim Date2 As String Date1 = "Jan, 3, 2004" Date2 = "Jan, 3, 2004" Debug.Print "6: " & IsDate("6") Debug.Print "6:6: " & IsDate("6:6") Debug.Print "6-6: " & IsDate("6-6") Debug.Print "6-6-6: " & IsDate("6-6-6") Debug.Print "Date1: " & IsDate(Date1) Debug.Print "Date2: " & IsDate(Date2) Debug.Print "#6/29/1992# :" & IsDate(#6/29/1992#) Debug.Print "#29/6/1992# :" & IsDate(#6/29/1992#) Debug.Print "Jan, 2, 2010: " & IsDate("Jan, 2, 2010") Debug.Print "January 3, 2010: " & IsDate("January 3, 2010") Debug.Print "7:05 PM: " & IsDate("7:05 PM") Debug.Print "April 3, 1994 10:43 AM: " & IsDate("April 3, 1994 10:43 AM") Debug.Print "Hoc Vien VBA Excel: " & IsDate("Hoc Vien VBA Excel") End Sub

Kết quả:
Nhấn Ctrl + G để mở cửa sổ Immediate để xem kết quả. Hình minh họa: