Date > May 15 of Dates year and < May 16 of next year 2

[punky]

I need help checking a date field with this criteria:
The date must be greater than May 15 of the dates current year, and less than May 16 of the NEXT year. Checking dates between years throws me.

 

[tlbroadbent]

I'm not sure I understand what you need but perhaps this will do it.


Where MyDate>dateserial(year(MyDate),5,15) And < dateserial(year(MyDate)+1,5,16) Terry

http://members.home.net/tlbroadbent/index.htm

 

[JohnYingling]

Function IsDateGood(dteToCheck as date) as boolean
    Dim dteLow as date
    Dim dteHigh as date
    dteLow = DateSerial(datePart("yyyy",Now),5,15) 'This yyyy
    dteHigh = DateAdd("y",1,dteLow) ' Plus 1 year
    Select Case dteToCheck
    Case Is <= dteLow       ' May 15 and below this year
    Case Is > dteHigh       ' May 16 and above next year 
    Case else
        IsDateGood = True   ' good date
    End select
End Function

http://WWW.VBCompare.Com

 

[JohnYingling]

If the &quot;dates current year&quot; means from the date to check instead of &quot;today's yyyy&quot; then use
dteLow = DateSerial(datePart(&quot;yyyy&quot;,dteToCheck),5,15)

http://WWW.VBCompare.Com