Procedura-MonthLastDay

Popis:

Procedura vrátí číslo posledního dne v měsíci

Parametry:

Název	Popis	Datový typ
AMonth		Integer
AYear		Integer

Návratové hodnoty:

Název	Popis	Datový typ
LastDayOfMonth		Integer

Tělo:

BEGIN
  if ((AMonth = 1) or (AMonth = 3) or (AMonth = 5) or (AMonth = 7) or
     (AMonth = 8) or (AMonth = 10) or (AMonth = 12)) then
    begin
      LastDayOfMonth = 31;
    end
  else
    if ((AMonth = 4) or (AMonth = 6) or (AMonth = 9) or (AMonth = 11)) then
      begin
        LastDayOfMonth = 30;
      end
    else
      /*Osetrime unor*/
      if (ib_isleapyear(AYear) = 1) then
        begin
          LastDayOfMonth = 29;
        end
      else
        begin
          LastDayOfMonth = 28;
        end
  suspend;
END;

Generated by ABRA Software a.s. 27.10.2021 16:34:25