Help with Date checking code

[Mr. Clean]

How would I change
this condidtion to check for a value
where:

PLEXP is >= Date and
the Month of PLEXP is <= Next Month

Also taking into consideration a Dec/Jan
value combination. (PLEXP Month is Dec)

If ((DateValue(PLEXP) >= Date) And _
(DatePart("M", DateValue(PLEXP)) <= _
(DatePart("M", Date) + DatePart("M", Date) + 1))) Then

I can't quite get it right. Not used to VBA.

 

[Tom Ogilvy]

If ((DateValue(PLEXP) >= Date) And _
(DateValue(PLEXP) <= _
DateSerial(year(Date),Month(Date)+2,0)) Then

I think you would run into problems at for the Dec Jan time frame if you
just check on Month, so This checks if the PLEXP is <= the last day of the
next month. I believe that will achieve your ends.

 

[Mr. Clean]

If ((DateValue(PLEXP) >= Date) And _
(DateValue(PLEXP) <= _
DateSerial(year(Date),Month(Date)+2,0)) Then

Thanks, That works great...