系统设为mm/dd/yyyy时30/9/2013为何通过IsDate()？如何标记为无效？

你遇到的这个情况其实是IsDate()函数的“宽松解析”特性在搞鬼——它并不会严格遵循你的系统日期格式（mm/dd/yyyy）来判断，而是会自动尝试多种常见的日期格式去匹配输入内容。比如30/9/2013，虽然按mm/dd/yyyy来看，第一个数字30作为月份明显无效，但IsDate()会自动切换到dd/mm/yyyy的逻辑去解析，发现9月30日是合法日期，所以返回True，这就完全违背了你想要的校验规则。

要解决这个问题，我们需要手动实现严格的mm/dd/yyyy格式校验，而不是依赖IsDate()的自动解析逻辑。下面给你一个实用的自定义函数，帮你实现精准校验：

Function IsValidMMDDYYYY(inputStr As String) As Boolean
    Dim dateParts() As String
    Dim monthNum As Integer, dayNum As Integer, yearNum As Integer
    
    ' 按斜杠拆分日期字符串
    dateParts = Split(inputStr, "/")
    
    ' 第一步：检查是否是标准的三部分结构
    If UBound(dateParts) <> 2 Then
        IsValidMMDDYYYY = False
        Exit Function
    End If
    
    ' 第二步：检查每个部分是否都是纯数字
    If Not IsNumeric(dateParts(0)) Or Not IsNumeric(dateParts(1)) Or Not IsNumeric(dateParts(2)) Then
        IsValidMMDDYYYY = False
        Exit Function
    End If
    
    ' 转换为数值类型以便后续校验
    monthNum = CInt(dateParts(0))
    dayNum = CInt(dateParts(1))
    yearNum = CInt(dateParts(2))
    
    ' 第三步：校验月份范围（1-12）
    If monthNum < 1 Or monthNum > 12 Then
        IsValidMMDDYYYY = False
        Exit Function
    End If
    
    ' 第四步：校验日期是否符合对应月份的最大天数
    On Error Resume Next
    Dim testDate As Date
    testDate = DateSerial(yearNum, monthNum, dayNum)
    If Err.Number <> 0 Then
        ' 构建日期时出错，说明日期无效
        IsValidMMDDYYYY = False
    Else
        ' 额外验证：确保转换后的日期格式化后和原输入完全一致
        ' 避免类似"13/1/2023"被误判为有效（IsDate会把它转成1/13/2023）
        If Format(testDate, "mm/dd/yyyy") = inputStr Then
            IsValidMMDDYYYY = True
        Else
            IsValidMMDDYYYY = False
        End If
    End If
    On Error GoTo 0
End Function

之后你只需要在你的原有代码里，用这个自定义函数替换掉IsDate()就可以了：

If Not IsValidMMDDYYYY(SourceSheet.Cells(r, c).Text) Then
    ' 这里写你处理无效日期的逻辑，比如提示用户、标记单元格等
End If

这个函数的核心逻辑是：

• 先确保输入是xx/xx/xxxx的三部分结构
• 验证每个部分都是数字
• 检查月份在1-12之间
• 通过DateSerial函数尝试构建日期（如果日期超过当月最大天数，这个函数会报错）
• 最后额外验证格式化后的日期和原输入一致，彻底避免IsDate()那种自动转换格式的问题

内容的提问来源于stack exchange，提问作者Korfuntu