16 lines
267 B
Ada
16 lines
267 B
Ada
|
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;
|