日付の検証の場合に正常に機能する以下の正規表現を使用しています。しかし、DatePicket から日付を選択しても、alert:Enter valid date がスローされます。DatePicker と互換性があるように正規表現を変更するにはどうすればよいですか。
Set RegularExpressionObject = New RegExp
With RegularExpressionObject
.Pattern = "^(((0?[1-9]|[12]\d|3[01]).-\/.-\/?\d{2}))|((0?[1-9]|[12]\d|30).-\/.-\/?\d{2}))|((0?[1-9]|1\d|2[0-8])[.-\/]0?2.-\/?\d{2}))|(29[.-\/]0?2.-\/?(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00)|00)))$"
.IgnoreCase = True
.Global = True
End With
expressionmatch = RegularExpressionObject.Test(TxtVal)
If expressionmatch Then
Else
msgbox "You must enter a valid Date.",,"Invalidentry"
form1.item(OHldr).focus()
Exit Function
End if