with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;


package Time_Handling is
   type Date_Type is private;
   procedure Get(Time: out Date_Type);
   procedure Put(Time: in Date_Type);
   function Next_Date (Tid : in Date_Type) return Date_Type;
   function Previous_Date (Tid : in Date_Type) return Date_Type;
   function ">" (Left, Right : in Date_Type) return Boolean;
   function "<" (Left, Right : in Date_Type) return Boolean;
   function "=" (Left, Right : in Date_Type) return Boolean;
   Day_Error : Exception;
   Month_Error : exception;
   Year_Error : exception;


private
      --           type Date_Type is
      --  record
      --  	 Y : Integer;
      --  	 M : Integer;
      --  	 D : Integer;
      --  	 C : Character;
      --  end record;

	       type Date_Type is
		 array (1..3) of Integer;


   end Time_Handling;