Re: ada calendar

[Nick Roberts <nick.roberts@acm.org>]

Stephen Leake wrote:

>>how can i add one week to clendar.time record using duration ?
> 
> with Ada.Calendar; use Ada.Calendar;
> procedure One_Week
> is
>    One_Minute : constant Duration := 60.0;
>    One_Hour   : constant Duration := 60 * One_Minute;
>    One_Day    : constant Duration := 24 * One_Hour;
>    One_Week   : constant Duration := 7 * One_Day;
> 
>    Now : Time := Clock;
> begin
>    Now := Now + One_Week;
> end One_Week;

This may work on some implementations. If it fails, the compiler should 
issue a fatal error. In this case, Tom Moran's suggestion:

    One_Minute : constant Duration := 60.0;
    One_Hour   : constant Duration := 60 * One_Minute;
    One_Day    : constant Duration := 24 * One_Hour;

    Now : Time := Clock;
    begin
       for Day in 1 .. 7 loop
         Now := Now + One_Day;
       end loop;

ought to work. There is a proposal to add this functionality in the next 
revision of the language (AI-351).

-- 
Nick Roberts