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.
|