đ
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;