Specific Dates - Next Monday

[OllyJ]

Hi there, i hope someone can help me ASAP please.

I want to show 2 text boxes on a form which indicate next weeks starting date (next monday) and the week afters.

ie today is 14/12/2007 - i need 'textbox1' to automatically show "Mon 17/12/07" and 'textbox2' to automatically show "Mon 24/12/2007".

I'd appreciate anyones help on this one, thanks in advance, OllyJ

[lee123]

hello you could default this by using this:

date()  for textbox 1 and :
date()+10  in textbox 2

put these in the default value of the textboxes

lee123

[FishVal]

Something like the following:

DateAdd("d", 8 - Weekday(Date, vbMonday), Date)
DateAdd("d", 15 - Weekday(Date, vbMonday), Date)
 

Regards,
Fish

[OllyJ]

Thank you for your help.

Fish, your code helped tremendously.

The final code I used for "next Monday" and "the Monday after" (as it may help someone else out) is.....

"Next Monday": =DateAdd("d",8-Weekday(Date(),2),Date())

"the Monday after": =DateAdd("d",15-Weekday(Date(),2),Date())

Thanks again, OllyJ

[FishVal]

Glad it has helped you.

Best regards,
Fish

[NeoPa]

Something like the following:

DateAdd("d", 8 - Weekday(Date, vbMonday), Date)
DateAdd("d", 15 - Weekday(Date, vbMonday), Date)
 

Regards,
Fish

A perfect answer Fish ;)

[FishVal]

Thanks, NeoPa.
I just like such kind of solutions with "arithmetical" logic. ;)