[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;

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

[NIch]

Смотри тут
http://www.delphisources.ru/pages/fa...fWeek.php.html

[t116]

А как задать в сентябре 3,4,10,11,17,18,24,25 выходными днями?

[t116]

Разобрался. Только почему то функция DayOfTheWeek индекс (1) выводит воскресенье, а должна понедельник

[Страдалецъ]

Правильно она выводит, на америкосовский стандарт. У них неделя начинается с воскресенья.

[NumLock]

а точно DayOfTheWeek и DayOfWeek не перепутал?

DayOfTheWeek function
Description

Call DayOfTheWeek to obtain the day of the week represented by a specified TDateTime value. DayOfTheWeek returns a value between 1 and 7, where 1 indicates Monday and 7 indicates Sunday.

Note: DayOfTheWeek is ISO 8601 compliant (where Monday is considered the first day of the week). To obtain the day of the week where Sunday is considered the first day of the week, use the DayOfWeek function instead.
Tip: To make the return value more readable, use the Day of week constants.