Příklady - Zjištění trvání činností s atributem začátku

...
PrintLn(" Čas směny v aktuálním měsíci " )
PrintLn(" jen ve dnech po určených začátcích. " )
PrintLn PrintLn(" Kolik dnů po každém ")
Print(" začátku : " ) Input(Pocet:2)
PrintLn D_Zacatky := _BreakDuration ( CalItem, clNemoc, spNemoc, Pocet, 1 );            
 
  GoSub OsetriNavratovyKod

D_Konce := _BreakDuration ( CalItem, clNemoc, spNemoc, Pocet, 2 ); 
  GoSub OsetriNavratovyKod

D_Celkem := _BreakDuration ( CalItem, clNemoc, spNemoc, Pocet, 0 );
  GoSub OsetriNavratovyKod

PrintLn PrintLn (" O.K. Začátky : ", (D_Zacatky div 60):6," hodin ", (D_Zacatky mod 60):2," minut ")
PrintLn (" O.K. Konce : ", (D_Konce div 60):6," hodin ", (D_Konce mod 60):2," minut ")
PrintLn (" O.K. Celkem : ", (D_Celkem div 60):6," hodin ", (D_Celkem mod 60):2," minut ")