How can I do date "calculations"?

[monica]

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

[Chip Pearson]

If your date is in A1, use a formula like

=A1+(7*NumberOfWeeks)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"monica" <monica@discussions.microsoft.com> wrote in message
news:1C8A02FC-6BBE-43AE-9169-5D2086B9DC6C@microsoft.com...
> 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

[Tom Ogilvy]

assuming they will always give you a monday

Sub Hereisasample()
Dim dt as Date, n as Long, i as Long, s as String
dt = cdate(inputbox("Enter a monday date"))
n = 6
for i = 1 to n
s = s & format((dt + 7 * i),"mm/dd/yyyy") & vbNewline
next
msgbox s
End Sub

--
Regards,
Tom Ogilvy


"monica" wrote:

> 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

[monica]

Thanks to both of you!



"Tom Ogilvy" wrote:

> assuming they will always give you a monday
>
> Sub Hereisasample()
> Dim dt as Date, n as Long, i as Long, s as String
> dt = cdate(inputbox("Enter a monday date"))
> n = 6
> for i = 1 to n
> s = s & format((dt + 7 * i),"mm/dd/yyyy") & vbNewline
> next
> msgbox s
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "monica" wrote:
>
> > 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

[Dana DeLouis]

Perhaps another option, but with no checking if the start date is a Monday.

Sub Demo()
'// Your info here:
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" <monica@discussions.microsoft.com> wrote in message
news:1C8A02FC-6BBE-43AE-9169-5D2086B9DC6C@microsoft.com...
> 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