ðòSyntax10.Scn.FntSyntax10i.Scn.Fntóÿÿÿ09 ÀÔStampElemsAlloc2003-Mar-25ÛþÿÿÐûÐûInfoElemsAlloc#Syntax10.Scn.Fnt"Title": no title "Author": no name "Abstract": no abstract "Keywords": no keywords "Version": no version "From": 09.09.99 12:34:46 "Until": no date (use StampElems.Insert) "Changes": no changes "Hints": This text can again contain arbitrary text elements! OSyntax10b.Scn.FntÚQMODULE TestDates; (** gh id1 /   **) IMPORT Texts, Oberon, Out, Dates; CONST TYPE VAR PROCEDURE Do*; VAR date: Dates.Date; dt: ARRAY 16 OF CHAR; i, y, x, day, cw, daysOfMonth: INTEGER; BEGIN NEW(date); (* date.Set(1, 3, 2003); *) date.SetToday(); date.AddDays(-date.day + 1); daysOfMonth := date.DaysOfMonth(); day := -(date.DayOfWeek() - 1); FOR y := 0 TO 5 DO cw := date.WeekOfYear(); date.AddDays(7); FOR x := 0 TO 6 DO Out.Int(date.day,3); Out.Int(date.month,3); Out.Int(day, 4); Out.Ln END END END Do; END TestDates. TestDates.Do