Если кто то может объясните, как мне задать выходные дни в текущем месяце, если кол-во дней в текущем месяце определено
Код:
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;
Если можно подробнее