home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / tasking / dateutil.def < prev    next >
Text File  |  1986-01-31  |  536b  |  17 lines

  1. DEFINITION MODULE DateUtilities;
  2.  
  3.   FROM TimeDate IMPORT Time;
  4.   EXPORT QUALIFIED DayOfWeek, DateDifference, SetDate;
  5.  
  6.   PROCEDURE DayOfWeek(date: Time): CARDINAL;
  7.     (* returns 0 = Sunday, ... 6 = Saturday*)
  8.  
  9.   PROCEDURE DateDifference(First, Last: Time): CARDINAL;
  10.     (* returns the numbers of days from first to last *)
  11.  
  12.   PROCEDURE SetDate(Year, Month, Day: CARDINAL; VAR Date: Time)
  13.     (* set the date word if the timestamp *)
  14.     (* 1900 < Year < 2100, 1 <= Month <= 12, 1 <= Day <= 31 *)
  15.  
  16.   END DateUtilities.
  17.