检查输入的数据是否符合YYYY-MM

时　间:2020-10-29 19:54:40
作　者:易勋   ID：35404  城市：上海
摘　要:在控制输入数据的时候，经常要求用户输入YYYY-MM的格式，例如：2020-10，为了规范输入，通过一个函数实现了这个功能。
正　文:

函   数：

Public Function CheckMonth(strMonth As String) As Boolean
    CheckMonth = True
    
    If Len(strMonth) <> 7 Then
        CheckMonth = False
    End If
    
    If Mid(strMonth, 5, 1) <> "-" Then
        CheckMonth = False
    End If
    
    If Val(Left(strMonth, 4)) < 2000 or Val(Left(strMonth, 4)) > 2100 Then
        CheckMonth = False
    End If
    
    If Val(Right(strMonth, 2)) < 1 or Val(Right(strMonth, 2)) > 12 Then
        CheckMonth = False
    End If

End Function

调   用：

CheckMonth(数据)