怎么判断输入的是不是日期格式？（已ok） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么判断输入的是不是日期格式？（已ok）

共有3359人关注过本帖树形打印复制链接主题：怎么判断输入的是不是日期格式？（已ok）

YUNSEL

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：200 积分：2567 威望：0 精华：0 注册：2016/11/9 19:13:00

怎么判断输入的是不是日期格式？（已ok） 发帖心情

Post By：2023/2/21 17:40:00 [只看该作者]

设置一个文本框用来输入日期，需要在输入完成后是不是符合日期格式，要怎么写？

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编辑过]