날짜 형식 을 판단 하 는 정규 표현 식

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