Příklady - Kalendářní dny v měsíci _Days

 ...
  PrintLn(" V kalendářním měsíci : ", _Days(CalIndex, dnVsechny), " dní. ")
  Print("(  ", _Days(CalIndex, dnPracovni), " pracovních,   ")
  Print(       _Days(CalIndex, dnVikendy),  " o víkendech a ")
  PrintLn(     _Days(CalIndex, dnSvatky ),  " svátků.)     ")

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