home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FM2LIB30.ZIP / LIB / TIMEDATE.DEF < prev    next >
Encoding:
Modula Definition  |  1992-09-24  |  593 b   |  26 lines
  1. DEFINITION MODULE TimeDate;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5.  
  6. TYPE
  7.     Time =  RECORD
  8.                 day, minute, millisec :CARDINAL;
  9.                 (*
  10.                     day = ((Year - 1900) * 16 + Month) * 32 + DayOfTheMonth
  11.                     minute = minutes since midnight
  12.                     millisec = milliseconds past the minute
  13.                 *)
  14.             END;
  15.  
  16. PROCEDURE GetTime( VAR time :Time );
  17. (*
  18.     get the system time
  19. *)
  20.  
  21. PROCEDURE SetTime( time :Time );
  22. (*
  23.     set the system time
  24. *)
  25.  
  26. END TimeDate.