DateSerial

Hi all,

Not sure if this should be in this forum, or the database development one instead...so if this needs to be moved, let me know.

Soo, I've just confused myself a bit since I need to change up some date criteria in some access queries.

I'm currently using the following to calculate the first and last day of the current month.

Code:

---

Between
(DateSerial(Year(Date()), Month(Date()), 1)) and (DateSerial(Year(Date()), Month(Date()) + 1, 0))

---

and I'm using its counter part here, to grab the first and last day of the previous month:

Code:

---

Between (DateSerial(Year(Date()),Month(Date())-1,1)) And (DateSerial(Year(Date()),Month(Date()),0))

---

However, I am now in need of saying that the month begins on the 2nd week of the current month, and ends after the 1st week in the next month. (mondays to be exact)

I'm hoping this can be achieved like the above so that I can use it as criteria in queries and not just pure VB code.

Thanks for any assistance. :wave:

you should be able to do like

vb Code:

dateserial(someyear, somemonth, (9 - Weekday(DateSerial(someyear, somemonth, 1), vbSunday)) Mod 7 + 1)

add 7 to day for second week monday, add 1 to month for 1st monday next month