TIME %BeginPeriod(
	TIME		_time, 
	INT|TEXT	_period
)

-- vytvorí 2-hodinovu periódu
_period := %CreatePeriod(%TimeFromItems(2016, 1, 1, 0, 0, 0),
%StepBase_Second, 7200);

-- vytvorí výstupný vektor s dvoma hodnotami, ktorých časy pokryjú celý interval <_BT, _ET> zarovnaný podľa vytvorenej periódy
%CreateVector(_v, 2);
%SetItemTime(_v, 1, %BeginPeriod(_BT, _period));
%SetItemTime(_v, 2, %NextPeriod(_ET, _period) - 1);

RETURN _v;