Category : Modula II Source Code
Archive   : FM2LIB31.ZIP
Filename : TIMEDATE.DEF

 
Output of file : TIMEDATE.DEF contained in archive : FM2LIB31.ZIP

DEFINITION MODULE TimeDate;

(* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)


TYPE
Time = RECORD
day, minute, millisec :CARDINAL;
(*
day = ((Year - 1900) * 16 + Month) * 32 + DayOfTheMonth
minute = minutes since midnight
millisec = milliseconds past the minute
*)
END;

PROCEDURE GetTime( VAR time :Time );
(*
get the system time
*)

PROCEDURE SetTime( time :Time );
(*
set the system time
*)

END TimeDate.