Question Regarding DateSerial

[GMFTM]

I have an expression:

Sum(IIf([Sale_Date] Between DateSerial(Year(Now()),Month(Now())-1,1) And DateSerial(Year(Now()),Month(Now())-1,Day(Now()))-1,1,0))

Now I need to make sure that when it hits 1/2018 that this will grab 12/17

How do I modify this to make that work?

 

[footoo]

Application.EDate(DateSerial(Year(Now()), Month(Now()), 1), -1)

or

Application.EoMonth(Now(), -2) + 1

 

[xenou]

That's seems like what you have already.

Sample code:

Sub foo()

Dim d(3) As Date

d(0) = #1/18/2018#
d(1) = DateSerial(Year(d(0)), Month(d(0)) - 1, 1)
d(2) = DateSerial(Year(d(0)), Month(d(0)) - 1, Day(d(0))) - 1

Debug.Print d(1)
Debug.Print d(2)

End Sub

Result:

12/1/2017
12/17/2017

 

[footoo]

The whole thing :

With Application
  Sum(IIf([Sale_Date] Between .EoMonth(Now(), -2) + 1 And .EDate(now(),-1)-1,1,0))
End With