VBA函数单独运行正常，嵌入子过程IF语句时始终返回FALSE

核心问题：日期的时间部分差异 #

你的函数单独运行正常，但嵌入子过程后返回错误结果，大概率是因为**newdate包含时间部分**，而节假日表中的日期是纯日期（无时间），导致两者比较时因时间戳不一致返回False。

比如：

• 若ws.Cells(1,2)的值是2024-11-22 14:30:00，newdate就会是2024-11-23 14:30:00
• 节假日表中的11月23日存储为2024-11-23 00:00:00
• 此时CDate(cell.Value) = myDate的比较会因时间部分不匹配而失败

解决方案 #

方案1：修改函数，忽略时间部分比较

修改IsDateInColumn函数中的比较逻辑，使用DateValue()提取纯日期部分进行对比，同时优化遍历范围，只处理有数据的行：

Function IsDateInColumn(myDate As Date, dateColumn As Range) As Boolean
    ' Check if myDate is in the specified dateColumn
    Dim cell As Range
    ' 只遍历有数据的区域，避免整列循环
    Dim dataRange As Range
    Set dataRange = dateColumn.Worksheet.Range(dateColumn.Cells(1), dateColumn.Cells(dateColumn.Worksheet.Rows.Count, dateColumn.Column).End(xlUp))
    
    For Each cell In dataRange
        If IsDate(cell.Value) Then
            ' 提取纯日期部分对比，忽略时间
            If DateValue(cell.Value) = DateValue(myDate) Then
                IsDateInColumn = True
                Exit Function
            End If
        End If
    Next cell
    IsDateInColumn = False
End Function

方案2：在生成newdate时直接转为纯日期

在子过程中，将newdate转换为不含时间的纯日期，确保和节假日表的日期格式一致：

' 修改这一行
newdate = DateValue(ws.Cells(1, 2).Value + 1)

额外调试建议 #

可以在子过程中添加调试输出，确认newdate的实际值，排查是否存在时间部分：

Debug.Print "newdate的值：" & newdate & "，时间戳：" & CDbl(newdate)

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