47 lines
1.2 KiB
Ada
Executable file
47 lines
1.2 KiB
Ada
Executable file
with Ada.Text_IO;
|
|
use Ada.Text_IO;
|
|
with Dates; use Dates;
|
|
|
|
procedure Exemple_Dates_Erreurs is
|
|
Une_Date : T_Date;
|
|
Mois_Suivant : T_Mois;
|
|
Autre_Date : T_Date;
|
|
begin
|
|
-- Initialiser une date
|
|
Initialiser (Une_Date, 1, OCTOBRE, 2018);
|
|
|
|
-- L'afficher
|
|
Afficher (Une_Date);
|
|
New_Line;
|
|
|
|
-- Afficher un enter sur 2 positions
|
|
-- Afficher_Deux_Positions (2); -- pas dans le ads
|
|
New_Line;
|
|
|
|
-- Afficher le mois suivant de Une_Date
|
|
Mois_Suivant := T_Mois'succ (Le_Mois (Une_Date));
|
|
Put ("Mois suivant : ");
|
|
Put (T_Mois'Image (Mois_Suivant));
|
|
New_Line;
|
|
-- OK car le type T_Mois est accessible de l'utilisateur.
|
|
|
|
-- Modifier directement la date, pas possible T_Date private
|
|
-- Une_Date.jour := 15;
|
|
-- Une_Date.Mois := Mois_Suivant;
|
|
Afficher (Une_Date);
|
|
New_Line;
|
|
|
|
-- Illustrer les opérations possibles sur T_Date, type privé
|
|
Autre_Date := Une_Date;
|
|
Put ("Autre date : ");
|
|
Afficher (Autre_Date);
|
|
New_Line;
|
|
|
|
if Autre_Date = Une_Date then
|
|
Put_Line ("Ce sont les mêmes dates !");
|
|
else
|
|
Put_Line ("Les dates sont différentes !");
|
|
end if;
|
|
|
|
end Exemple_Dates_Erreurs;
|