If statement help

[Patrick Simonds]

I need to create an If Statement that returns the day of the week

What I need is:

If Today = Sunday then Calendar1 = Date +5
If Today = Monday then Calendar1 = Date +6

 

[Doug Robbins - Word MVP]

If Format(Date, "dddd") = "Sunday" then
Format(DateAdd(Date, "d", 5), "dd MMMM yyyy")
Else If etc.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Jezebel]

If Weekday(Now) = vbSunday then ...

But if you just want to set Calendar1 to Friday, you don't the IFs --

Calendar1 = Date + 6 - Weekday(Now, vbFriday)