Einfachere Lösung II

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

DaysLeft.m2
PROCEDURE InitTimeIO;
BEGIN
   ReleaseList;
   Append("d.m.y"); (* 24.12.1999 *)
   Append("d.my");  (* 24. Dezember 1999 *)
   Append("d.m.");  (* 24.12. *)
   Append("d.m");   (* 24. Dezember *)
END InitTimeIO;

PROCEDURE ProcessArgs;
   PROCEDURE FetchDate(VAR date: Date);
      VAR string: ARRAY [0..31] OF CHAR;
   BEGIN
      FetchString(string);
      SreadDate(string, date);
      IF ~Done THEN
         Usage;
      END;
   END FetchDate;
BEGIN (* ProcessArgs *)
   InitArgs("date");
   FetchDate(date);
   AllArgs;
END ProcessArgs;

*Die Prozedur SreadDate aus dem Modul TimeIO kann ein frei formatiertes Datum aus einer Zeichenkette einlesen.
 
*Die unterstützen Datumsformate werden von InitTimeIO festgelegt.
 
*Wenn das Datum nicht stimmt, wird Usage aufgerufen.
 

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