Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TOOL_INC.ZIP/GETTIME.INC

Text File | 1988-01-29 | 334 b | 17 lines

(*
 * gettime - get time of day from system clock
 *
 *)

function get_time: real;
var
   h,m,s,s1: word;
begin
   GetTime(h,m,s,s1);
   get_time := int(s1)/ 100.0 +   {seconds/100}
               int(s) +           {seconds}
               int(m) * 60.0 +    {minutes}
               int(h) * 3600.0;   {hours}
end;