RE: Ada95 calendar package question

["Beard, Frank" <beardf@spawar.navy.mil>]

-----Original Message-----
From: James Rogers [mailto:jimmaureenrogers@worldnet.att.net]

> Converting month numbers to month names is simple. Create an enumerated
> type containing the month names you want, then convert the 
> Ada.Calendar.Month_Number to the corresponding month name:
>
> type months is (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep,
>                 Oct, Nov, Dec);
> Month_Name : Months := Months'Val(Ada.Calendar.Month(Time_Value));

Except that Ada.Calendar.Month returns a number in the range of 1 to 12,
while 'POS and 'VAL for type months works on values in the range of 0 to 11.

So, you would have to do something like the following:

  Month_Name : Months := Months'Val(Ada.Calendar.Month(Time_Value) - 1);

But that would probably cause CONSTRAINT_ERROR in January, so you end up
with:

  Month_Name : Months := Months'Val(natural(Ada.Calendar.Month(Time_Value))
- 1);

Frank