Validate that the value is in the format "mm/dd/yyyy"
Function ValidateDateFormat(dateValue As String) As Boolean
If IsDate(dateValue) And Format(dateValue, "mm/dd/yyyy") = dateValue Then
ValidateDateFormat = True
End If
End Function
Validate that the value is in the format "YYYYMMDD"
Function ValidateDateFormat(dateValue As String) As Boolean
If Len(dateValue) = 8 And IsDate(Format(dateValue, "@@@@/@@/@@")) Then
ValidateDateFormat = True
End If
End Function
Top comments (0)