ShiftDiscover

(    Index   : Word;
     Class   : Word;
     Specf    : Word;
     DateFrom : TDate;
     DateTo   : TDate;
dim Days     : Longint;
dim Mins     : Longint;
     IsMask   : Byte );

Zjistí celkové trvání všech směn třídy 'Class' a specifikace 'Specf' v období /'DateFrom','DateTo'/. Při výpočtu trvání je brán za základ aktuální turnus v kalendářové položce 'Index' (tj. aktuální identifikátor TurIdent a zapadávka TurPoint). Parametr IsMask určuje pojetí specifikace 'MSpecf'. Celkové trvání je navráceno ve dvou proměnných :

'Days' (počet dní)
'Mins' (počet minut)

Je-li v turnusu specifikovaná směna pak v časovém období 'DateFrom'-'DateTo' (včetně mezních dní) se sčítají dni, které tuto směnu obsahují.
Neexistuje-li v turnusu žádná daná směna, nebo je-li datum DateFrom v časové posloupnosti později než DateTo je celkové trvání nulové.
V 'Mins' vystupuje součin 'Days' s trváním směny. Trvání jedné směny je tedy rovno ('Mins' div 'Days').
Procedura se nevykoná, jestliže před vstupem do ní je _CalResult // 0.

Podívejte se na: Kalendářové makrofunkce

Příklady