function GetRabDays(YYYY, MM: Word): Integer;
var dayweek: string; i, Counter: 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;