with Ada.Text_IO; use Ada.Text_IO; with Dates; use Dates; procedure Exemple_Dates is Une_Date : T_Date; begin -- Initialiser une date Initialiser (Une_Date, 1, OCTOBRE, 2018); -- L'afficher Afficher (Une_Date); New_Line; end Exemple_Dates;