[t116]

Если кто то может объясните, как мне задать выходные дни в текущем месяце, если кол-во дней в текущем месяце определено

Код:

 var
  YYYY, MM, DD: Word;
  D: TDateTime;
begin
   DecodeDate(Date, YYYY, MM, DD);
   D := EndOfAMonth(YYYY,8);
   DecodeDate(D, YYYY, MM, DD);
   showmessage(inttostr(dd));
end;

Если можно подробнее