日期比较不正确

Question

这只是我正在编写的 vba 代码的一部分，简单的日期比较不起作用。我有一个包含大量数据的 sheet，vba 代码创建了一个枢轴 table。该代码运行良好并且确实过滤掉了所有过去的日期，但由于某种原因（今天是 2 月 29 日）它没有过滤掉（2 月 3 日和 2 月 4 日）。它会正确过滤掉所有其他 2 月日期，但只是这两个日期。任何人都知道什么是错的？

With ActiveSheet.PivotTables("pivottable1").PivotFields("issuedate")
    For Each pi In .PivotItems
        If pi < Date Then
            pi.Visible = False
        End If
    Next pi
End With

Answer 1

您检查过列类型是日期而不是字符串吗？也许试试 CDate(pi)?

如果这不起作用，请 post 无效的日期 - 也许通过 Debug.print(pi).