How can I do date "calculations"?
Perhaps another option, but with no checking if the start date is a Monday.
Sub Demo()
'// Your info he
Const NumberOfWeeks As Long = 7
Range("A1") = "4/24/2006"
'// Then...
Range("A1").Resize(NumberOfWeeks).DataSeries Date:=xlDay, Step:=7
End Sub
--
HTH. :)
Dana DeLouis
Windows XP, Office 2003
"monica" wrote in message
...
To be more specific, if a user gives me a date in the format of 4/24/06, I
am
supposed to return a list of the next "X" amount of weeks, starting with
Monday. For example, I would return 5/1/06, 5/8/06, if they wanted two
weeks, or I would return 5/1/06, 5/8/06, 5/15/06, 5/22/06, 5/29/06,
6/5/06,
if they wanted 6 weeks. I am always using the day Monday as reference.
Can
these dates be calculated in a way?
Any code would be very helpful.
Thanks
|