см. сабж

Дата1-Дата2

Смотря где - в ЗиК'е, например, есть спец. календарь, в котором проставляются рабочие дни и часы =)

Может кто знает более оптимальный вариант???

Это количество дней, включая выходные.
А как получить количество дней, исключая нерабочие (выходные и праздники)?

(1) Дата1-Дата2 - довольно оригинальный подход =)) Если бы все работали 7 гноября... ;)

Календарь = ГрафикРаботы.ОсновныеЧасы;
РабочихДней = Календарь.Дней(НачалоПериода,КонецПериода);
РабочихЧасов = Календарь.Часов(НачалоПериода,КонецПериода);

ГрафикРаботы - это что?
у меня "Предприятие" v7.7 - говорит, переменная не определена.

Если не в ЗиК'е, то с праздниками не знаю как справиться. А насчет выходных - посмотри в синтаксис-помощнике - если мне не изменяет память, там есть какая-то функция, которая возвращает по дате день недели =)

Ну например
ГрафикРаботы = Константа.ОсновнойГрафик
или создать объект календарь.

(7) Какая у тя конфигурация? Буха, ТиС или Зарплата? Или какое-нить отраслевое решение? Или еще чего?

НомерДняНедели(<?>)
Синтаксис:
НомерДняНедели(<Дата>)
Назначение:
Возвращает порядковый номер дня недели для заданной даты.
Параметры:
<Дата> - выражение со значением типа дата.
Замечание:
Порядковые номера дней недели: 1 - понедельник, 2 - вторник, ..., 7 - воскресенье.

(11) как здорово, когда под рукой есть синтаксис-помощник =))

(4) ИМХО без учета праздников это должно выглядеть примерно так:
ЧислоПолныхНедель = Цел((Дата2-Дата1)/7);
ЧислоРабочихДней = (Дата2-Дата1) - ЧислоПолныхНедель*2;

+ подумай, как учесть остаток от неполной недели (у мну уже голова не варит)

Берешь бумашный календарь - быстрее всего.

Я для расчета рабочих дней ввела такую функцию. Только все это считается у меня в документе, поэтому еще введен дополнительные список праздников (в форме документа), который заполняется вручную.
//--------------------------------------------  
Функция РасчетРабочихДней()
   Рабочие=0;
   Кон=НачМесяца(ДатаДок);
   Пока Кон<=КонМесяца(ДатаДок) Цикл
    Если (НомерДняНедели(Кон)=6) или (НомерДняНедели(Кон)=7)Тогда //выходные дни не считаем
       Иначе
          ИсключитьПраздник=0;
          Если Праздники.КоличествоСтрок()<>0 Тогда //исключаем праздники
           Праздники.ВыбратьСтроки();
           Пока Праздники.ПолучитьСтроку()=1 Цикл
               Если Праздники.Праздник=Кон Тогда
                   ИсключитьПраздник=1;
               КонецЕсли;    
           КонецЦикла;    
       КонецЕсли;
       Если ИсключитьПраздник=0 Тогда
           Рабочие=Рабочие+1;
       КонецЕсли;    
   КонецЕсли;    
   Кон=Кон+1;
   КонецЦикла;
   Возврат Рабочие;
КонецФункции
//-----------------------------

Скорректируем вопрос :)
В 1С есть такая фича, как календарь бухгалтера (Сервис/Календарь бухгалтера).
Там есть "Производственный календарь на 2004 год", где все праздники и выходные уже указаны. Можно конечно, как Аечка, руками один раз прописать все праздники в какой-нибудь своей функции. Но зачем это делать, если все уже есть готовое?
Собственно, вопрос - как этим подключаемым календарем воспользоваться программно?

В любой конф создаешь календарь, заполняешь его своим графиком работы, затем делаешь как в (6). Самое простое и оптимальное решение.

>>shura
А как создать календарь, извините за глупый вопрос :)  ?
Пробую К=СоздатьОбъект("Календарь") - ругаеться "Неудачная попытка создания объекта (Календарь)"

В конфигураторе создаешь календарь. Называешь его, напримерЮ Пятидневка.
Как его использовать читаешь в синтакс-помощнике или, например, в модуле расчета "По окладу" типовой ЗиК.

(15) Реально Вы бредите. Завидую.

(15) Это вам кто-то делал на заказ ? (В типовой таких нет)

Расчет - в канаву. В бухгалтерии календари и праздники нашлись.

КоличествоРабочихДней = Календари.КалендарьБухгалтера.Дней(ДатаНачалаПериода,ДатаКонцаПериода);

где "КалендарьБухгалтера" имя календаря как оно задано в конфигураторе.

(22) Я создал в кофигураторе новый календарь - "К2004"
При попытке обращения:
КолРабДней=Календари.К2004.Дней(ДатаКонца,ДатаНачала);
Возникает ошибка:
"Поле агрегатного объекта не обнаружено (К2004)"
Как к нему всетаки обращаться?

А компонента Расчет установлена?

Дней = Календари.ПолучитьАтрибут("К2004").Дней(ДатаНачала, ДатаКонца);

(25)Пробовал - ругается "Неверное имя атрибута".
Для работы с Календарем компонента расчет обязательна?

Календари - это специфические для расчетной компоненты метаданные. В принципе, если программа дала его создать, значит, есть расчетная компонента на машине. А программа ругается при запуске на той же машине? Если Неверное имя атрибута, значит, возможно К латинское, а обращаетесь к К2004 где русское К.

(27) Все делаю на одной машине. Имена все правильные.
Делаю след. образом:
1. в конфигураторе в разделе "Календари" создаю новый календарь с именем "К2004"
2. в отчете пытаюсь к этому календарю обратиться:
 К=СоздатьОбъект("Календарь.К2004");
 К=СоздатьОбъект("Календари.К2004");
 КРБ=Календарь.К2004.Дней(Д1,Д2);
 КРБ=Календари.К2004.Дней(Д1,Д2);
при любом способе обращения выдает ошибку.

1. в конфигураторе в разделе "Календари" создаю новый календарь с именем "К2004"
2. в отчете пытаюсь к этому календарю обратиться:
Дней = Календари.ПолучитьАтрибут("К2004").Дней(ДатаНачала, ДатаКонца);
И что?

(29) "Неверное имя атрибута"

1. журнал расчета хоть один в системе создан?
2. что выдает "сообщить(Метаданные.Календарь());" (без кавычек) ?

У меня нормально работает. Еще раз проверьте, с какой буквы календарь в метаданных начинается, с русской или латинской. И обращайтесь в
Дней = Календари.ПолучитьАтрибут("К2004").Дней(ДатаНачала, ДатаКонца); с той же самой.

(31) Ни одного журнала расчета не создано.
сообщить(Метаданные.Календарь()); выдает 0

(33) Возможно, для нормального функционирования части расчет необходимо создать хотябы один журнал расчета. Вовсе не обязательно его использовать.

PS функция Метаданные.Календать() возвращает количество созданных календарей в конфигураторе.

(34) Действительно, после создания пустого Журнала Расчетов Календарь заработал нормально.
Теперь следующий вопрос - есть файл PRCLND04.MXL с календарем на 2004 год.
Как его загрузить (использовать) для созданного в конфигураторе календаря?
Файл лежит в стандартной папке с календарями.

Вообще, календари в системе "Автозаполняются", а не загружаются из файлов.
1.в режиме предприятия проставляешь в "праздниках" даты праздников.
2.все в том же режиме выбираешь календарь жмешь кнопку "автозаполнение" (галка учитывать праздники должна быть").

кстати, "стандартная папка" с календарями лежит у кого? и вообще что за файл такой?

(36) C:\1С\Base\ИмяБазы\ExtForms\Calendar\PRCLND04.MXL
я его получил через Сервис/Календарь Бухгалтера/