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

[Inbox]

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

procedure TForm1.Button1Click(Sender: TObject);
var
kolday:integer;
begin
kolday:=DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date);
edit1.Text:=Floattostr(kolday);
MonthCalendar1.MinDate:=DateTimePicker1.Date; //отображает диапазон времени
MonthCalendar1.MaxDate:=DateTimePicker2.Date; //в компоненте
end;
end.

[Kotofff]

Вот нашел у себя :

function WorkDays(DateFirst, DateLast: TDateTime): Integer;// подсчет рабочих дней
var
  i: integer;
  AllDays: word;
begin
  AllDays := DateTimeToTimeStamp(DateLast).Date -
                 DateTimeToTimeStamp(DateFirst).Date + 1;
  Result := AllDays;
  for i := 0 to AllDays - 1 do
  begin
    if DayOfWeek(DateFirst + i) - 1 in [6, 0] then
      Result := Result - 1;
  end;
end;

[Inbox]

DateTimeToTimeStamp(DateLast) а это что? откуда?

[_Engine_]

Это из DateUtils. Хотя, ИМХО, удобнее пользовать функцию DaysBetween вместо неё

[Inbox]

Значит субота и воскресенье в DateUtils под номером 0и6?

[Inbox]

Чтот то я не могу сообразить как подсчитать суботы, помоги плиз

[_Engine_]

Вот копипаст примера из справки:
This example uses an edit box and a button on a form. When the user enters a date in the edit box in the format associated with the current locale (for example MM/DD/YY format in the US), the string entered is converted to a TDateTime value. This value is used to indicate the day of the week the date represents.

procedure TForm1.Button1Click(Sender: TObject);

var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
ADate := StrToDate(Edit1.Text);
ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;

[Inbox]

function TForm1.WorkDays(DateFirst, DateLast: TDateTime): Integer;
var
  i: integer;
  AllDays: word;
begin
  AllDays := DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date+1);
  Result := AllDays;
  for i := 0 to AllDays - 1 do
  begin
    if DayOfWeek(DateFirst + i) - 1 in [6, 0] then
      Result := Result - 1;
  end;
end;

Как мне получить результат?? из этого

[Inbox]

Вот копипаст примера из справки

Здесь мы создаем массив и я ничего с ним немогу сделать.
Маcсив уже есть в dateutils, я задаю диапазон чисел при помощи двух компонентов DateTimePicker и мне надо выдернуть из него все дни под номером 6. Kotofff чего то подкинул похожее, но я не соображу как вывести результат вычислений этой функции

[mihali4]

Inbox - умница.
Осталось добавить про семерку (кроме шестерки) и ваша задача

Как посчитать дни с вычетом субботы и воскресения???

решена...
Вы это сделали самостояятельно. Это - самое главное. Вы научились.
Ничего особенного, но отмечу краткие и по существу ответы ваши ответы на собственные вопросы Inbox.
За эти качества ставлю свой плюс...
А теперь пожелание - может, не стоит так торопиться с вопросами?
Вроде бы у вас с головой все в порядке.