VBA日付形式

Question

日付を含む列をフィルタリングする必要があります。これは、メッセージボックスを表示するものである

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 

：

私は日付が current dateと current date + 15 days

これはそれを行うために私のVBAコードであるとの間にあるすべての行を取得する必要があります

これは私が正確に欲しいものです。

これは私が得たものです：

日と月のフィールドはCurrentDate+15変数に反転されています。

これを解決する方法を考えてください。 VBAなど

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

は非常に米国中心である：オートフィルタにそれらを適用する際に

Answer 1

はダブルスに日付値に変換します。