Calculate the approximate number of days till Arapahoe Basin opens

dts.adb

-- Calculate the approximate number of days till Arapahoe Basin opens
with Ada.Text_Io;
use Ada.Text_Io;
with Ada.Calendar;
use Ada.Calendar;

procedure dts is
   tod : Time := Clock;
   OpeningDay : Time := Time_Of(Day=>25,
                                Month=>10,
                                Year=>Year(Tod));
   NumDays : Integer := Integer((Openingday - Tod) / Day_Duration'Last);
begin
   Ada.Text_Io.Put_Line("There are" & Integer'Image(numdays) & " days till ski season.");
end dts;