Vorgegebener Rahmen

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

TimeDiff.m2
MODULE TimeDiff;

   FROM Calendar IMPORT CurrentTime, ConvertTime,
      ConvertDate, Calendarday, Date, Day, Daytime, Month;
   FROM InOut IMPORT Write, ReadCard, WriteInt, WriteCard,
      WriteLn, WriteString;

   VAR 
      date: Date;
      daytime: Daytime;
      today, future: Calendarday;
      tmp: CARDINAL;

   PROCEDURE CalcDays(today, future: Calendarday) : INTEGER;
      (* ... war auszufuellen ... *)
   END CalcDays;

BEGIN 
   ConvertTime(CurrentTime(), date, daytime);
   ConvertDate(date, today);

   WriteString("Bitte Tag eingeben: ");
   ReadCard(tmp); future.day := tmp;
   WriteString("Bitte Monat eingeben: ");
   ReadCard(tmp); future.month := tmp;
   WriteString("Bitte Jahr eingeben: ");
   ReadCard(future.year); WriteLn;
   WriteString("Heute ist der ");
   WriteCard(today.day, 1); Write(".");
   WriteCard(today.month, 1); Write(".");
   WriteCard(today.year, 1); Write("."); WriteLn;
   WriteString("Von heute bis zu Ihrem Wunschtag sind es ");
   WriteInt(CalcDays(today, future), 0);
   WriteString(" Tage."); WriteLn;
END TimeDiff. 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 13.01.1999