vba sumifs对日期感到困惑，四月错误的结果

rev_date

rev_date

grid_date

Public Function GRIDSALES(rev_date As Date, grid_date As Date) As Double

  Dim Team As Range
  Dim First_PD As Range
  Dim PAmount1 As Range

  Application.Volatile (True)

  Set PAmount1 = Sheets(\"Sheet1\").Range(\"$F6:$F12\")
  Set First_PD = Sheets(\"Sheet1\").Range(\"$E6:$E12\")
  Set Team = Sheets(\"Sheet1\").Range(\"$D6:$D12\")

            GRIDSALES = Application.WorksheetFunction.SumIfs( _
            PAmount1 _
            , Team, \"<>9\" _
            , First_PD, \">=\" & Format$(rev_date, \"dd mmm yyyy\") _
            , First_PD, \"<=\" & Format$(Application.WorksheetFunction.EoMonth(grid_date, 0), \"dd mmm yyyy\"))

End Function