home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / modprint / datetime.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  762 b   |  24 lines
  1. DEFINITION MODULE DateTime;
  2.  
  3. (*
  4.  * Gets date or time, formats it and returns a string to the caller.
  5.  *)
  6.  
  7. CONST
  8.  DateSize = 13; (* maximum number of characters in a date string *)
  9.  TimeSize = 8;  (* maximum number of characters in a time string *)
  10.  
  11. TYPE
  12.  DateType = ARRAY [1..DateSize] OF CHAR;
  13.  DateFormat = (MoDayYear, CapMoDayYear, (* Dec 25, 1987 | DEC 25, 1987 *) 
  14.            DayMoYear, CapDayMoYear, (* 25Dec87 | 25DEC87 *)
  15.            YearMoDay, CapYearMoDay ); (* 87Dec25 | 87DEC25 *)
  16.  
  17.  TimeType = ARRAY [1..TimeSize] OF CHAR;
  18.  TimeFormat = (Hour12, Hour24); (* 01:57PM | 13:57 *)
  19.  
  20. PROCEDURE GetTime( VAR TimeStr: ARRAY OF CHAR; Format : TimeFormat );
  21. PROCEDURE GetDate( VAR DateStr: ARRAY OF CHAR; Format : DateFormat );
  22.  
  23. END DateTime.
  24.