📅 Calendar - JulTob/Ada GitHub Wiki

WITH Text_IO,
     Ada.calendar, 
     Ada.calendar.Time_Zones, 
     Ada.calendar.formatting;

USE Text_IO, 
    Ada.calendar, 
    Ada.Calendar.Time_Zones, 
    Ada.calendar.formatting;

PROCEDURE Time_drift IS
   Time_Now : Time;
   C : Character;
   avail : boolean;
BEGIN
   LOOP
      time_now := clock;
-- function Image (Date : Time;
--                 Include_Time_Fraction : Boolean := False;
--                 Time_Zone  : Time_Zones.Time_Offset := 0) return String;
      Put(Ada.Calendar.Formatting.Image(Time_Now, False, 8*60)); Put(".");
      Put_Line(second_duration'image(sub_second(time_now))(4..6));
-- function Sub_Second (Date : Time) return Second_Duration;
      DELAY 1.0;
      Get_Immediate (C, Avail); -- Avail is True is user hits any key
      EXIT WHEN Avail;          -- and trigger Exit
   end loop;
END Time_drift;