with Ada.Calendar;
with GNAT.Calendar; use GNAT.Calendar;
with GNAT.Calendar.Time_IO;
with GNAT.IO; use GNAT.IO;
procedure GNAT_CAL is
Now : Ada.Calendar.Time := Ada.Calendar.Clock;
begin
Put_Line ("Hour :" & Hour (Now)'Img);
Put_Line ("Minute :" & Minute (Now)'Img);
Put_Line ("Second :" & Second (Now)'Img);
Put_Line ("Sub_Second :" & Sub_Second (Now)'Img);
Put_Line ("Day_Of_Week :" & Day_Of_Week (Now)'Img);
Put_Line ("Day_In_Year :" & Day_In_Year (Now)'Img);
Put_Line ("Week_In_Year :" & Week_In_Year (Now)'Img);
GNAT.Calendar.Time_IO.Put_Time (Now,
GNAT.Calendar.Time_IO.US_Date);
New_Line;
GNAT.Calendar.Time_IO.Put_Time (Now,
"Today is %A, %B %d, %Y");
New_Line;
end GNAT_CAL;
|
