Re: Date calculating software?
- To: mathgroup at smc.vnet.net
- Subject: [mg30414] Re: [mg30390] Date calculating software?
- From: BobHanlon at aol.com
- Date: Fri, 17 Aug 2001 03:09:53 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/8/15 1:06:37 AM, NOSPAM at austracom.nz writes:
>Is there a software program or calculator available that can eg. Add a
>period of time to a date?
>
>example, today is 14 August 2001.
>
>14082001 + 18 months
>
>or
>
>14082001 + 1yr, 3mths, 4 days, and produces the date 1yr, 3mths and 4 days
>hence?
>
Needs["Miscellaneous`Calendar`"];
daysPlus[date_, n_] :=
DaysPlus[date,
Ceiling[n /. {year :> 365.25, month :> 365.25/12, day :> 1}]];
daysPlus[{2001, 8, 14}, 18 month]
{2003, 2, 13}
daysPlus[{2001, 8, 14}, 1 year+3 month+4 day]
{2002, 11, 18}
Bob Hanlon
Chantilly, VA USA