说明
在之前的博文中讲述了身份证号校验功能函数和银行卡信用卡卡号校验功能函数,主要用于检查身份证号和银行卡信用卡卡号录入是否正确,这里再为大家介绍一下用于检查日期录入是否正确的函数。
代码code
Sub 检查日期录入()
Dim strDate As String
strDate = "20210431"
Dim bolCheck As Boolean
bolCheck = CheckDate(strDate)
End Sub
Function CheckDate(DateString As String) As Boolean
CheckDate = False '首先为函数设定False的结果,具体返回结果会根据后续的执行情况而定
If Len(DateString) <> 8 Then
'如果传入参数的长度不是8,则返回False
CheckDate =