设置一个文本框用来输入日期，需要在输入完成后是不是符合日期格式，要怎么写？
dim txt as string = "2023-01-101"
上例，如果txt的值不是标准的日期格式，给出提示！
找到答案了：
Dim pattern As String = "^[1-9]\d{3}-(0[1-9]|1[0-2]|[1-9])-(0[1-9]|[1-2][0-9]|3[0-1]|[1-9])$"
Dim txt As String= "2017-9-1" '2017年9月
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If rgx.isMatch(txt) = False Then
msgbox("请输入正确的日期!")
Else
msgbox("正确")
End If
[此贴子已经被作者于2023/2/21 17:55:23编辑过]
加好友 
发短信
Post By：2023/2/21 17:40:00 [显示全部帖子]
