Příklady - Trvání směny turnusu v období

  dim DateFrom : Date;
  dim DateTo   : Date;
  dim Days     : Word;
  dim Mins     : Longint;
  DateFrom[1] := 2;   DateFrom[2] := 12;  DateFrom[3] := 1993;
  DateTo[1]   := 31;  DateTo[2]   := 12;  DateTo[3]   := 1994;
  ShiftDiscover( calItem, clPrace, spTopil, DateFrom, DateTo, Days, Mins );
  PrintLn( " Celkem ", Days, " dní" );
  PrintLn( " tj. ", Mins, " ( ",Mins div Days,"*", Days, " ) minut"  );

Podívejte se na: Jiné příklady