按日期（文本类型）自动筛选带条件语句

Question

我正在尝试过滤具有文本格式日期的列，例如“ 07/12/2012 ” 我需要使用条件语句自动过滤column34：

如果每个单元格中的日期小于当前日期+15，请选择该行。

运行以下代码后，我得到空结果，即没有选择任何行。有没有人知道为什么？

With srcSheet
   srcEndRow = .Cells(.Rows.Count, 1).End(xlUp).Row
   .Range("A2" & ":BU" & srcEndRow).AutoFilter Field:=34, Criteria1:="<>NULL", Operator:=xlAnd, Criteria2:="<" & Format(Date, "0") 
End With