Data i czas » Obliczenia

MonthDays

  • 2010-10-31 18:27
  • 0 komentarzy
  • 253 odsłony
  • Oceń ten tekst jako pierwszy
MonthDays
Moduł: SysUtils

const
 MonthDays : array [Boolean] of TDayTable =
      ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
       (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

Stała tablicowa przechowuje ilości dni w danych miesiącach w roku. Ponieważ tablica jest dwuwymiarowa należy określić czy mamy do czynienia z rokiem przystępnym czy też nie. Do tego może posłużyć nam funkcja IsLeapYear:

Writeln('Dni w lutym 2006: ', MonthDays[IsLeapYear(2006)][2]);


Zobacz też: