Příklady - Zjištění poměrných trvání

dim PomerDoba : Real; PomerDoba := _ShiftDuration ( CalItem, 1, 31, XDny,
                              XAtribut, clNemoc, spNemoc, IsMask );  
    GoSub OsetriNavratovyKod

PrintLn(" Poměrná doba : ", Doba:10:2," dní ");