日期比较不正确

Question

这只是我正在编写的 vba 代码的一部分，简单的日期比较不起作用。我有一张包含大量数据的表格，vba 代码创建了一个数据透视表。该代码运行良好并且过滤掉了所有过去的日期，但由于某种原因（今天是 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)？

如果这不起作用，请发布不起作用的日期 - 也许通过执行 Debug.print(pi)。