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 }