Mondays

[Spumbu1977]

hi ,

i am trying to get my app to list all the monday dates between certain date criteria

and i am not having any luck

basically this section of the app needs to list all the monday's dates between may 2006 to may 2007 but it does not seem to do anything it just keeps adding 7 to the date but does not change month..

can anyone show me how to stat this off in a way that works cause mine does not

thanks in advance
Rob

[Steve Grant]

Rob, try this

 Dim MonDate As Date, A As Long
    MonDate = "01/05/2006"
    For A = 0 To 51
        MonDate = DateAdd("ww", 1, MonDate)
        Debug.Print MonDate
    Next

Steve.

[Phil Weber]

Didn't I answer this question for you, like, four months ago?
http://forums.devx.com/showthread.php?t=150930