我正在对用户输入日期值的单元格进行一些验证。我期待的正确格式是“m / d / yyyy”,所以我需要一种方法来检查用户是否以该格式输入日期。
我怎样才能做到这一点?
以下是我所做的一些验证:
Dim StartDate As String
Dim EndDate As String
With Sheet1
StartDate = WorksheetFunction.Trim(.Range("F2").Value)
EndDate = WorksheetFunction.Trim(.Range("F3").Value)
End With
'Dates validations
If StartDate = "" Or EndDate = "" Then
MsgBox ("Dates can't be empty")
Exit Sub
End If
If Not IsDate(StartDate) Or Not IsDate(EndDate) Then
MsgBox ("Please check dates format")
Exit Sub
End If
If CDate(StartDate) > CDate(EndDate) Then
MsgBox ("Start Date can't be greater than End Date")
Exit Sub
End If