SALAST / TIMEUNIT

Unit TimeUnit;
(**) InterFace (**)
 Var Elapsed : Array [0..8] Of Char;
 Var SecondsR: Real;
 Procedure StartTiming;
 Procedure StopTiming;
(**) Implementation (**)
Uses WinProcs,WinDOS,Strings;
 Var TStart : Real;

 Function ReturnTimeInSeconds : Real;
  Var Hour,Minute,Second,Sec100 : Word;
      R   : Real;
  Begin
   GetTime(Hour,Minute,Second,Sec100);
   R :=0.01*Sec100+Second+Minute*60+Hour*3600;
   ReturnTimeInSeconds := R;
  End;

 Procedure StartTiming;
  Begin
   TStart := ReturnTimeInSeconds;
  End;

 Procedure StopTiming;
  Var St : String;
      R  : Real;
  Begin
   SecondsR := ReturnTimeInSeconds - TStart;
   Str(SecondsR:5:2,St);
   StrPCopy(Elapsed,St);
  End;

End.{ Of Unit }