VBA日期格式

Question

我需要過濾包含日期的列。我需要得到所有行日期爲current date和current date + 15 days

之間這是我的VBA代碼做到這一點：

Dim seuilDate As Date, currentDate As Date 
    seuilDate = DateAdd("d", 15, Date) 
    currentDate = Date 

    MsgBox "Date seuil :" & seuilDate & " Current Date:" & currentDate 


    With Workbooks("macro1.xlsm").Worksheets("Feuil1") 
     If .FilterMode Then .ShowAllData 
     '.range("C:C").AutoFilter Field:=3, Operator:=xlFilterValues 
     .range("C:C").AutoFilter Field:=1, Criteria1:=">=" & currentDate, Criteria2:="<" & seuilDate, Operator:=xlAnd 
    End With 

這是顯示的MessageBox：

這就是我想要的，

但在excel文件中，我得到：

的日，月字段倒在CurrentDate+15變量。

任何想法如何解決這個問題。

.range("C:C").AutoFilter Field:=1, Criteria1:=">=" & CDbl(currentDate), Criteria2:="<" & CDbl(seuilDate), Operator:=xlAnd 

爲VBA很美國爲中心：

Answer 1

它們適用於自動篩選時轉換的日期值雙打。