Создал справочник "Календарь",2 реквизита ДатаНач и ДатаКон, написал функцию по поиску рабочего дня, но она не работает, в чем проблема? (он почему то по реквизиту всегда выдает пустую ссылку)
Функция ПроверкаДатыВыходныхИПраздников(ДатаПроверки)
   ПромежДата =ДатаПроверки;
   ФлПервый = 0;
   Пока ЗначениеЗаполнено(ПромежДата) Цикл
       СтрокаНаинования =Справочники.Календарь;
       Строка =  СтрокаНаинования.НайтиПоРеквизиту("ДатаНач",ПромежДата);
       Если Строка <> СтрокаНаинования.ПустаяСсылка() Тогда
           если ФлПервый = 0 Тогда
               ПромежДата = Дата(Строка.ДатаКон) + 24*60*60;
               ФлПервый = 1;
           Иначе
               Прервать;
           КонецЕсли;
       Иначе
           ПромежДата = Дата(ПромежДата) + 24*60*60;
       КонецЕсли;
   КонецЦикла;            
   Возврат ПромежДата;
КонецФункции

Вроде все правильно написано: только вот
Если Строка <> СтрокаНаинования.ПустаяСсылка() Тогда заменить на Если Строка = СтрокаНаинования.ПустаяСсылка() Тогда , но вс равно всегда пустаЯ ссылка выходит

Используй запрос.

Не думаю что этот код сработает, хотя самому интересно ход решения твой...довести над до ума только

(2) какой запрос, зачем? только вот сам не пойму, почему (0) у автора не работает....

псц код, но думаю что в датанач не дата находится.

а регистр сведений не лучше ли было юзать?

А точно есть элемент с ДатаНач=ПромежДата?
И время совпадает?

Пока ЗначениеЗаполнено(ПромежДата) Цикл
в данном случае практически Пока Истина Цикл

А можно как то врея убрать из даты, но чтобы тип "Дата" остался?

СтрокаНаинования.
Это на каком языке?

(9) Формат() спасёт?

Все спасибо, взлетела программа!

Вот код: он немного не так работает:
   ПромежДата =НачалоДня(ДатаПроверки);
   ФлПервый = 0;
   Пока ЗначениеЗаполнено(ПромежДата) Цикл
       Если ФлПервый
       СтрокаНаинования =Справочники.Календарь;
       Строка =  СтрокаНаинования.НайтиПоРеквизиту("ДатаНач",ПромежДата);
       Если Строка = СтрокаНаинования.ПустаяСсылка() Тогда
           ПромежДата = НачалоДня(Дата(ПромежДата)) + 24*60*60;
       Иначе
           ПромежДата = НачалоДня(Дата(Строка.ДатаКон)) + 24*60*60;
       КонецЕсли;
   КонецЦикла;            
   Возврат ПромежДата;


Пример: ДатаНач    Датакон
       01,01,2011 02,01,2011
       02,01,2011 03,01,2011
       
ДатаПроверки - 31,12,2011 и к этой дате нужно прибавить 1 рабочий день! Нужно чтобы получилось - 05,01,2011
Как исправить?

(13)Это по какой логике должно получиться 05/01? О_О

04,01,11 ..

(15)Ну, 04/01 по идее должно получиться...

Только вот из цикла не выйдет...
   Пока ЗначениеЗаполнено(ПромежДата) Цикл

(17) вот и именно, как мне выйти из цикла правильно и когда?

От задачи зависит... Задача не ясна...

прибавить к дате 1 рабочий день!

Чисто в продолжение бреда:

   ПромежДата =НачалоДня(ДатаПроверки);
   ФлПервый = 0;
   Пока ЗначениеЗаполнено(ПромежДата) Цикл
       СтрокаНаинования =Справочники.Календарь;
       Строка =  СтрокаНаинования.НайтиПоРеквизиту("ДатаНач",ПромежДата);
       Если Строка = СтрокаНаинования.ПустаяСсылка() Тогда
           Если флПервый=1 Тогда
               Прервать;
           КонецЕсли;    
           ПромежДата = НачалоДня(Дата(ПромежДата)) + 24*60*60;
           ФлПервый=ФлПервый+1;
       Иначе
           ПромежДата = НачалоДня(Дата(Строка.ДатаКон)) + 24*60*60;
           ФлПервый=0;
       КонецЕсли;
       
   КонецЦикла;            
   Возврат ПромежДата;

В УТ 10,3 есть производственный календарь. Как можно на основании него проверить является ли некая дата "Выходным или праздником"?

(22) ну там реквизит есть соответствующий.
полко надо еще "перенесенные праздничные и выходные" почитать

ВидДня

ВидДня - это что?

ВидДня - там указывается что это за дата.

(26) а как обратиться или функция какая то есть?

(27)Учи запросы, полезная вещь.

Запрос=новый запрос;
     запрос.Текст="ВЫБРАТЬ
                  |    РегламентированныйПроизводственныйКалендарь.ВидДня,
                  |    ВЫБОР
                  |        КОГДА РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = ПеренесенныеРабочиеДни.РабочийДень
                  |            ТОГДА истина
                  |            ИНАЧЕ ложь
                  |    КОНЕЦ КАК Перенос
                  |ИЗ
                  |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
                  |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПеренесенныеРабочиеДни КАК ПеренесенныеРабочиеДни
                  |        ПО РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = ПеренесенныеРабочиеДни.РабочийДень
                  |                
                  |ГДЕ
                  |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря
                                    |";