Imports VBScript_RegExp_55
'正则表达式()
Dim b As Boolean
Dim res As New RegExp
res.Pattern = "\d{4}\-(0?[1-9]|[1][012])\-(0?[1-9]|[12][0-9]|3[01])"
b = res.Test(tbBirthday.Text)
If b = False Then
MsgBox("birthday error(xxxx-xx-xx)", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxSetForeground, "警告")
Return False
End If
判断日期格式的正则表达式
猜你喜欢
转载自blog.csdn.net/qq_35106907/article/details/81366358
今日推荐
周排行