[Back to TIMING SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... Timer
 * Purpose ....... Returns the number of seconds since midnight
 * Parameters .... None
 * Returns ....... Number of seconds since midnight to the 100th decimial place
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
FUNCTION Timer : REAL;
VAR hour,
    minute,
    second,
    sec100  : WORD;
BEGIN
     GETTIME(hour, minute, second, sec100);
     Timer := ((hour*60*60) + (minute*60) + (second) + (sec100 * 0.01))
END;

[Back to TIMING SWAG index]  [Back to Main SWAG index]  [Original]