自动filter由今天的date

我试图按两列sorting。 现状和批准date。 批准date需要是当前date。

当我尝试debugging代码时，当我添加手表看看是什么日​​期被分配，它显示例如11/8月/ 2013这是相同的，我在电子表格中也有一些单元格也满足当前状态的条件，但它仍然过滤出来，当它的意图，让他们在那里。 有没有原因，这是行不通的？

Dim w As Integer, b As Integer, rngData2 As Range Set rngData2 = Range("A1").CurrentRegion w = Application.WorksheetFunction.Match("Current State", Range("A1:AZ1"), 0) b = Application.WorksheetFunction.Match("Approved Date", Range("A1:AZ1"), 0) rngData2.AutoFilter Field:=w, Criteria1:=Array( _ "Approved", "Detailed Impact Assessment", "Draft – Yet to be Tabled at CCCM", _ "Initial Impact Assessment", "New", "On Hold", "Pending Approval - Execution", _ "Pending Approval - IIA"), Operator:=xlFilterValues rngData2.AutoFilter Field:=b, Criteria1:=Array( _ Date, "TBC"), Operator:=xlFilterValues