Расчет рабочих дней с DateTimePicker

[Ann19]

У меня есть 2 DateTimePicker:
Чтобы мне получить разницу между двумя датами я использую trunc,
Как сделать, чтобы он выкидывал выходные?

[Serge_Bliznykov]

я бы рекомендовал завести табличку, куда занести ВСЕ выходные и ПРАЗДНИЧНЫЕ дни (каждая дата - отдельная строка).
Потом выборка из этой таблицы всех выходных/праздничных дат, попавших в интервал между нужными датами.
количество таких дат и даст нужное число выходных дней.
Если же использование таблицы (и SQL) чем-то претит, тогда можно банально перебрать все даты в диапазоне в цикле, проверяя для каждой isHoliday(Дата) и уменьшая счётчик рабочих дней, если Дата - выходной.

p.s. поиском по форуму пройдитесь. были такие темы на форуме...

[Ann19]

Спасибо за ответ, да, действительно темы такие были, и они описывают именно, о чем вы говорите.
Меня интересует можно ли без написания своего календаря, и тем самым исключая всю выборку выявить выходные.
Как в MonthCalendar понять выходной день или нет?
Есть такая функция DayOfWeek, которая возвращает день недели.
Дни недели можно вывести как сообщение.
Можно ли как то сделать проверку выходных?

[Serge_Bliznykov]

Можно ли как то сделать проверку выходных?

если речь идёт ИСКЛЮЧИТЕЛЬНО про выходные дни (субботы и воскресения), то можно обойтись даже без перебора.
Но это вариант, разумеется, не будет учитывать праздничные дни (кои имеются в нашем рабочем производственном календаре).
Если Вас устроит такой подход - я постараюсь набросать простенький примерчик.

я же говорю, зря Вы поиском не пользуетесь!
вот на форуме было уже решение:

DateTimePicker, MonthCalendar кол-во дней

--------------------------------------------------------------------------------
Пользовательвыбирает диапазон времени между двумя DateTimePicker.
и подсчитываем кол-дней.
Как посчитать дни с вычетом субботы и воскресения???

смотри пост #2 (c) Kotofff

[Ann19]

Спасибо огромное.

[Ann19]

Программа заработала!
Но я немного не так делала, вот мой алгоритм:

procedure TForm1.Edit1Change(Sender: TObject);
var
Result: integer;
AllDays: integer;
i: integer;
begin
AllDays:= 

(trunc(DateTimePicker2.Date)-trunc(DateTimePicker1.Date))+1;
Result := AllDays;
for i := 0 to AllDays - 1 do
begin
if DayOfWeek(DateTimePicker1.Date + i) - 1 in [6, 0] then
Result := Result - 1;
end;
Edit1.Text:=IntToStr(Result);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Но я немного не так делала, вот мой алгоритм:

ну, не принципиально, так тоже можно.
но в вашем случае trunc() излишни! Уберите их и проверьте - получите тот же самый результат, что и с trunc()! Впрочем, если Вам так больше нравится, то можно и так оставить - ошибки в этом нет.