DEFINITION MODULE Date2;
(*$ LargeVars:=FALSE NameChk:=FALSE *)
(*
 * 16.8.89/ms
 * V 2.0 18.9.89 Bernd Preusing für jedes Datum!
 * V 4.0 16.10.90/bp als normales Modul
 *
 *)

FROM DosD	IMPORT	Date;

TYPE
 DayInWeek=(mon, tue, wed, thu, fri, sat, sun);
 DateRec=RECORD
  day,
  month,
  year,
  dayInYear: CARDINAL;
  dayInWeek: DayInWeek;
  hour,
  minute,
  second: CARDINAL;
 END;

(*
 * In dateText wird das Datum als Text abgelegt. Das Format dieses Textes
 * ist folgendermassen definiert.
 *
 *     WWW DD-MMM-YYYY
 *
 *     WWW    der Wochentag, abgekürzt
 *              Mon, Tue, Wed, Thu, Fri, Sat, Sun
 *     DD     der Tag, zweistellig mit führenden Nullen
 *     MMM    der Monat, abgekürzt
 *              Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec
 *     YYYY   das Jahr vierstellig
 *     hh:mm:ss
 *)
VAR
 dateText: ARRAY [0..31] OF CHAR;
 timeText: ARRAY [0..9]  OF CHAR;

PROCEDURE MakeDate(VAR date{8+3}:Date; VAR d{10}: DateRec);

END Date2.
