The Ada Program: date.adb

  1 -- date.adb:  use "Calendar_Date" package to compute day of week for 11/20/1997
  2 
  3 with Calendar_Date;
  4 procedure Date is
  5    Day  :          Calendar_Date.Day_Of_Week;
  6    Date : constant Calendar_Date.Date_Type := Calendar_Date.Date_Type'
  7      (Month=>Calendar_Date.Nov, Day=>20, Year=>1997);
  8 begin
  9    Day := Calendar_Date.Which_Day (Date);
 10 end Date;