количество рабочих дней в месяце.

[RKS]

Уважаемые, туплю сижу, каким образом подсчитать количество рабочих дней в месяце? заколебался извращаться уже Заранее благодарю

[Serge_Bliznykov]

Вам по простому или по правильному?
совсем по простому - цикл по дням от первой даты до последней - проверяя день недели.

чуть посложнее - берём первое число месяца - какой был день недели и подставив в составленную формулу этот день недели и количество дней в месяце вычисляем количество рабочих дней.

А по правильному - это должно быть завязано на таблицу с рабочими днями
(включая праздничные дни и дни переносов праздники<->рабочие дни). Делаете оттуда выборку - получаете количество (а при необходимости и даты) рабочих дней.

[wm_leviathan]

помнится тоже была у меня таая задача сделал так:

//подсчитать количество дней в месяце-------------

function DaysOfMonth( mm, yy: integer ): integer;
begin
   if mm = 2 then
   begin
      Result := 28;
      if IsLeapYear( yy ) then Result := 29;
   end
   else
   begin
      if mm < 8 then
      begin
         if ( mm mod 2 ) = 0 then
            Result := 30
         else
            Result := 31;
      end
      else
      begin
         if ( mm mod 2 ) = 0 then
            Result := 31
         else
            Result := 30;
      end;
   end;
end;

функция вернет количество дней в месяце mm и yy соответственно месяц и год.

koldn:=DaysOfMonth(2,2010);

[wm_leviathan]

или ИМЕННО рабочих? включая выходные праздники больничные и т.п ? (учитывая что график мб разный у каждого человека например сутки через двое)

[RKS]

спасибочки, щас попробую
to wm_leviathan, график обычный, с понедельника по пятницу, без учета праздников

[_SERGEYX_]

Нашел в одной своей древней программе...
Я извращался таким образом:

uses DateUtils;

Узнаём количество дней в месяце по году и месяцу.

function LastDay(YYYY, MM: Word): Integer;
var DD: Word;
  D: TDateTime;
begin
  DecodeDate(EncodeDate(YYYY,MM,1), YYYY, MM, DD);
  D := EndOfAMonth(YYYY, MM);
  DecodeDate(D, YYYY, MM, DD);
  Result := DD;
end;

Отбрасываем субботы и воскресенья (для русской Винды)

function GetRabDays(YYYY, MM: Word): Integer;
var dayweek: string; i: Integer;
begin
  Result := 0;
  for i := 1 to LastDay(YYYY, MM) do
  begin
    dayweek := FormatDateTime('dddd', EncodeDate(YYYY, MM, i));
    if (dayweek <> 'суббота') and (dayweek <> 'воскресенье') then
      Inc(Result);
  end;
end;

Пробуем...

ShowMessage(IntToStr(GetRabDays(2010,10)));

В этом месяце 21 рабочий день? Хз, проверь, может косяки где есть, давно писал...

[RKS]

Спасибо большое _SERGEYX_ , все работает. а то я как уже только не извращался))