【Excel VBA】检查日期输入校验函数

说明

在之前的博文中讲述了身份证号校验功能函数和银行卡信用卡卡号校验功能函数，主要用于检查身份证号和银行卡信用卡卡号录入是否正确，这里再为大家介绍一下用于检查日期录入是否正确的函数。

代码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) <>