The Ada Program: calendar_date.ads

  1 -- calendar_date.ads:  package with function for day of week
  2 
  3 package Calendar_Date is
  4   type Month_Name is (Jan, Feb, Mar, April, May, June, Jul, Aug,
  5     Sept, Oct, Nov, Dec);
  6   type Day_Of_Week is (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
  7   subtype Day_Number is Integer range 1..31;
  8   subtype Year_Number is Integer range 1500..2500;
  9   type Date_Type is record
 10      Month:  Month_Name;
 11      Day:  Day_Number;
 12      Year: Year_Number;
 13   end record;
 14 
 15   function Which_Day (Date: Date_Type) return Day_Of_Week;
 16 
 17 end Calendar_Date;