Příklady - Zjištění trvání činností

...

D_Turnus := _Duration ( CalIndex, 1, 31, XDny, XAtribut, XTrida,

                                          XSpecifikace, whTurnus, IsMask );

GoSub OsetriNavratovyKod D_Celkem := _Duration ( CalIndex, 1, 31, XDny, XAtribut, XTrida,                                          XSpecifikace, whCelkem, IsMask  );
           
            GoSub OsetriNavratovyKod

D_Korekce := D_Celkem - D_Turnus;

            GoSub OsetriNavratovyKod

PrintLn(" Trvání turnusu : ", (D_Turnus div 60):6," hodin ", (D_Turnus  mod 60):2," minut")
PrintLn(" Korekce : ", (D_Korekce div 60):6," hodin ", (D_Korekce mod 60):2," minut")
Print (" Celkové trvání : ", (D_Celkem div 60):6," hodin ", (D_Celkem  mod 60):2, " minut")


Například :

				Při nastavení 
  IsMask := True; 
  XDny := dnVikendy; 
  XAtribut := $FF; 
  XTrida := clPrace; 
  XSpecifikace := $FF; vysčítá časy všech pracovních činností o víkendech.