判断日期格式的正则表达式

最新推荐文章于 2021-02-20 13:06:28 发布

原创最新推荐文章于 2021-02-20 13:06:28 发布 · 1w 阅读

2 ·

CC 4.0 BY-SA版权

VB.net 专栏收录该内容

14 篇文章

订阅专栏


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