Как определять время цикла программы?

[Сергей71]

Существует ли способ в текущем цикле программы с определённой точностью иметь значение длительности предыдущего цикла?

VAR
CLOCK:TON;
TMDIFF: DWORD;
END_VAR

программа:
в TMDIFF - увидишь время цикла POU в мсек.

CLOCK; (* Timer abfragen *)
TMDIFF:=TIME_TO_DWORD(CLOCK.ET);(* Zeitdifferenz seit letztem Aufruf *)

IF TMDIFF>0 THEN
CLOCK(IN:=FALSE); (* Timer neu starten *)
CLOCK(PT:=t#1h, IN:=TRUE);
ELSE
CLOCK(PT:=t#1h,IN:=TRUE);
END_IF;