Собственно вот код, вышло слишком много вот и хотел узнать гав-окод это или нет. И если да то как можно реализовать лучше?

ВыводитьНапоминалку = 0;
   ВыходныеДни = 0;
   
   Сегодня = ТекущаяДата();
   ПроверкаНаВыходные = Сегодня;
   
   //Определяем последние два рабочих дня в месяце
   Если ДатаЧисло(Сегодня) = 30 Тогда
       Если (НомерДняНедели(Сегодня) <> 6)и(НомерДняНедели(Сегодня) <> 7) Тогда
           ВыводитьНапоминалку = 1;
       КонецЕсли;
   Иначе
       Если (ДатаМесяц(Сегодня) = 1)или(ДатаМесяц(Сегодня) = 3)или(ДатаМесяц(Сегодня) = 5)
           или(ДатаМесяц(Сегодня) = 7)или(ДатаМесяц(Сегодня) = 8)или(ДатаМесяц(Сегодня) = 10)или(ДатаМесяц(Сегодня) = 12) Тогда
               
               Если ДатаЧисло(Сегодня) = 28 Тогда
                   Если (НомерДняНедели(Сегодня)+1 = 6)или(НомерДняНедели(Сегодня)+1 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+2 = 6)или(НомерДняНедели(Сегодня)+2 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+3 = 6)или(НомерДняНедели(Сегодня)+3 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если ВыходныеДни = 2 Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
               
               Если ДатаЧисло(Сегодня) = 29 Тогда
                   Если (НомерДняНедели(Сегодня)+1 = 6)или(НомерДняНедели(Сегодня)+1 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+2 = 6)или(НомерДняНедели(Сегодня)+2 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если ВыходныеДни > 0 Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;

               Если ДатаЧисло(Сегодня) = 31 Тогда
                   Если (НомерДняНедели(Сегодня) <> 6)и(НомерДняНедели(Сегодня) <> 7) Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
               
       ИначеЕсли ДатаМесяц(Сегодня) = 2 Тогда
               Если ДатаЧисло(Сегодня) = 25 Тогда
                   Если (НомерДняНедели(Сегодня)+1 = 6)или(НомерДняНедели(Сегодня)+1 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+2 = 6)или(НомерДняНедели(Сегодня)+2 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+3 = 6)или(НомерДняНедели(Сегодня)+3 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если ВыходныеДни = 2 Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
               
               Если ДатаЧисло(Сегодня) = 26 Тогда
                   Если (НомерДняНедели(Сегодня)+1 = 6)или(НомерДняНедели(Сегодня)+1 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+2 = 6)или(НомерДняНедели(Сегодня)+2 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если ВыходныеДни > 0 Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;

               Если ДатаЧисло(Сегодня) = 27 Тогда
                   Если (НомерДняНедели(Сегодня) <> 6)и(НомерДняНедели(Сегодня) <> 7) Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
               
               Если ДатаЧисло(Сегодня) = 28 Тогда
                   Если (НомерДняНедели(Сегодня) <> 6)и(НомерДняНедели(Сегодня) <> 7) Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
       Иначе
               Если ДатаЧисло(Сегодня) = 27 Тогда
                   Если (НомерДняНедели(Сегодня)+1 = 6)или(НомерДняНедели(Сегодня)+1 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+2 = 6)или(НомерДняНедели(Сегодня)+2 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+3 = 6)или(НомерДняНедели(Сегодня)+3 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если ВыходныеДни = 2 Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
               
               Если ДатаЧисло(Сегодня) = 28 Тогда
                   Если (НомерДняНедели(Сегодня)+1 = 6)или(НомерДняНедели(Сегодня)+1 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если (НомерДняНедели(Сегодня)+2 = 6)или(НомерДняНедели(Сегодня)+2 = 7) Тогда
                       ВыходныеДни = ВыходныеДни + 1;
                   КонецЕсли;
                   Если ВыходныеДни > 0 Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;

               Если ДатаЧисло(Сегодня) = 29 Тогда
                   Если (НомерДняНедели(Сегодня) <> 6)и(НомерДняНедели(Сегодня) <> 7) Тогда
                       ВыводитьНапоминалку = 1;
                   КонецЕсли;
               КонецЕсли;
       КонецЕсли;
   КонецЕсли;

А из календаря не взять?

А как ?

календаря не вижу. г-код

жесть

(2) производственный календарь, запросом выводить 2 записи(или сколько там дней надо) с отбором вид рабочего дня и по месяцу))

гы, даешь еще пару если конецесли

Автор не учитывает праздники и перенос дней.

(7) +1)))

Хорошая практика: занести весь календарь в периодическую константу, а потом ее мучать

А если не учитывает, то бытрее будет :
Если месяц=февраль 2013, тогда 27 и 28

(5) в бухии 77 производственный календарь в mxl хранится

Программист должне быть достаточно ленив, чтобы не писать как в (0).

Уважаемый автор! Начни воспитывать в себе лень. Для программиста это нужное качество!

(0) Какая компонента?

(0) на клавиатуру вырвет

Нашел как работать с календарем нашел вот такую функцию

//функция определяет количество рабочих дней в интервале дат
Функция гРабочиеДни(ДатаН,ДатаК,Вид="Основной") Экспорт
    К=СоздатьОбъект("Календарь."+Вид);
    К.УчитыватьПраздники(1);
    Если К.Автозаполнение(ДатаН,ДатаК)=1 Тогда
         Возврат К.Дней(ДатаН,ДатаК);
    КонецЕсли;
КонецФункции

вставил в свой код

Сегодня = ТекущаяДата();
   К=СоздатьОбъект("Календарь.Основной");
   К.УчитыватьПраздники(1);
   Если К.Автозаполнение(Сегодня,Сегодня)=1 Тогда
       Сообщить(К.Дней(Сегодня,Сегодня));
   КонецЕсли;

Выдает вот такую ошибку

К=СоздатьОбъект("Календарь.Основной");
{Глобальный модуль(61571)}: Неудачная попытка создания объекта (Календарь.Основной)

Что не так ?

на 77 весь код - г0вн0код

(16) нет в папке с платформой файла calc.dll

(16)нету календаля с именем основной. ваш кэп

(17) Цыц под лавку!

(19) тут по подробнее можно?

(17) +1

когда его пишут 8шники

(21)а может и 18 правильно. я на 77 уже забыл че как

(16) Календарь существует только в компоненте расчет.

(17) Ну ты, наверное, и на снеговике так пишешь.

(0)Ваша национальность Индус. С чем и поздравляю, ваша догадка, по поводу гуано кода, оправдана :)

это какие грибы жрать надо....

Чем нести чушь лучше бы подсказали начинающему как реализовать лучше

(21)В пофигураторе добавь. Потом заполни. И будет тебе счастье.
Кстати, календари у 1С работает лучше всего :)

(28)А тебе разве самому не стыдно за такой код? :)

(28) ты конфигурацию / компоненту назовёшь ?

(0) ИМХО, проще так: идем с конца месяца и проверяем, выходной ли это.

(30) мне не стыдно стыдно было бы говорить что это лучший код и не пытаться развиваться

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

КонМесяца(<?>)
Синтаксис:
КонМесяца(<Дата>)
Назначение:
Возвращает дату конца месяца для заданной даты.
Параметры:
<Дата> - выражение со значением типа дата.


А твой код - ГОВ..КОД

(32) а как с конца а скажем если сегодня 28 ?

+(28)>>> последних двух рабочих дней месяца

В цикле организуй от конца месяца до начала, на проверку на Субботу и Воскресенье. И в остальные дни считай рабочими.
И как только Количество раб. дней превысит допустимое значение, то выходи из цикла.
А походу в цикле еще запоминай рабочие дни в какую либо ТЗ :)
...
По выходу из цикла ты будешь иметь некую ТЗ с датами, которую и используй дальше.

(35)

Для н = - КонецМесяца(ТекДата) по - 1 Цикл

А не проще, если нет компоненты расчет, и добавлять ее не хочется, просто завести справочник Календарь с реквизитами "число","месяц","год","дата","ТипДня", заполнять его раз в году (обработкой присвоить 6 и 7 дню выходной день, остальное ручками по производственному календарю) и все. Такой справочник в начале года заполнить делов на полчаса при наличии готовой обработки проставления выходных дней.

(38)НЕ проще. Отстой еще тот. Работает медленно. :)
Видел сею поделку... изрядная пакость.

(35) Итак...  Давай начнем с начала... Текст программы должен быть понятен и читаем... Другими словами отделим мухи от котлет.

Как я понял тебе нужно выполнить нужные действия в определенный день. Другими словами должно быть так:

Если СегодняНужныйДень()=1 Тогда
ВыполнитьДействия();
КонецЕсли;

Но для этого тебе нужно получить список этих нужных дней. Т.е. должна быть функция получения нужных дней.

(0)Без учета праздников просто сделать..
например:

   КонецМесяца = КонМесяца(ТекущаяДата());
   
   Если НомерДняНедели(КонецМесяца)>5 Тогда
       ПоследнийРабочийДеньМесяца = КонецМесяца+5-НомерДняНедели(КонецМесяца);
   КонецЕсли;
   
   
   ПредпоследнийРабочийДеньМесяца = ПоследнийРабочийДеньМесяца-?(НомерДняНедели(ПоследнийРабочийДеньМесяца) = 1,3,1);
   
   Если (ТекущаяДата() = ПоследнийРабочийДеньМесяца) ИЛИ (ТекущаяДата() = ПоследнийРабочийДеньМесяца) Тогда
       Сообщить("Выводить напоминалку");        
   КонецЕсли;

Идем дальше... Функция СегодняНужныйДень() должна проверять сегодня (текущий день) и список нужных дней.

Т.е. как-то так.

Функция СегодняНужныйДень()
  Сегодня = ТекущаяДата();

  Если СписокНужныхДней.НайтиЗначение(Сегодня) > 0 Тогда
    выхЗнач = 1;
  Иначе
    ВыхЗнач = 0;
  КонецЕсли;

Возврат ВыхЗнач;

КонецФункции

(39) в моей конфе еще при царе горохе добавлено, работает норм. Работает, не трогаю. Единственное, пришлось на коленке в начале года набросать обработку присвоения выходных дней, а то говорят бедные бухи вручную проставляли. )

PrClnd07.mxl

(43) логичнее справочник праздников завести (меньше элементов лопатить)

(45) Зачем? Берешь производственный

календарь, и праздники проставляешь, там всего 15 праздников вроде.

выглядит примерно так. http://gyazo.com/22f8e6bb86c83bf700b7ebde05af89cc И не надо волноваться и херачить кучу функций и плодить г(о)внокод.

И теперь самое интересное... Как заполнить этот самый СписокНужныхДней...

Процедура ЗаполнитьСписокНужныхДней()
  СписокНужныхДней = СоздатьОБЪект("СписокЗначений");
 
   Сегодня = ТекущаяДата();

  Для сч = 0 по 5 Цикл
    ТекДата = КОнМесяца(Сегодня) - сч;
   
    // здесь не будут расписывать - лень. Тупо проверь на СБ или ВС.
    Если ЭтоВыходной Тогда
      Продолжить;
    КонецЕсли;

    СписокНужныхДней.ДобавитьЗначение(ТекДата);

  КонецЦикла;

КонецПроцедуры

(48) г0внокод

+49 Ну и вставь нужное условие, чтобы у тебя получилось два дня...

(40) книжка Ван Тассела в трех постах? :-)

+51 Твой код в (0) - это алгоритм в стиле "машина состояний". Пока не научишься мыслить алгоритмами - не быть тебе хорошим программистом.

сч=0;
Для а=Текущаядата() по конмесяца(текщаядата) цикл
Если НомерДняНедели(а)<6 тогда
сч=сч+1;
КонецЦикла;
Сообщить("сегодня "+сч+" рабочий день недели с конца месяца");
Если (сч<=2)и(Номерднянедели(Текущаядата())<6) тогда

сч=0;
Для а=Текущаядата() по конмесяца(текущаядата()) цикл
Если НомерДняНедели(а)<6 тогда
сч=сч+1;
КонецЦикла;
Сообщить("сегодня "+сч+" рабочий день недели с конца месяца");
Если (сч<=2)и(Номерднянедели(Текущаядата())<6) тогда

(51) а зачем условие вставлять? И так ведь прокатит.

(49) осталось добавит переносы выходных на праздники, праздников на выходные и т.д...

Преставь, что будет в твоем случае, если твой постановщик задачи прибежит в ужасе и скажет "А давай эту фигню будем делать в другие дни!". В моем случае - достаточно поправить одну процедуру. А в твоем???

(53) мыслить алгоритмами хотя бы в какую сторону копать или что почитать?

Не зря же я учился на специальности ВМКСС вычислительные машины комплексы системы и сети ))))

Переделал вот как

Сегодня = ТекущаяДата();
   КонецМесяца = КонМесяца(Сегодня);
   К=СоздатьОбъект("Календарь.Пятидневка");
   К.УчитыватьПраздники(1);
   Если К.Автозаполнение(Сегодня,КонецМесяца)=1 Тогда
       Если (К.Дней(Сегодня,КонецМесяца) = 2)или(К.Дней(Сегодня,КонецМесяца) = 1) Тогда
           ВыводитьНапоминалку = 1;
       КонецЕсли;
   КонецЕсли;

Все работает проверял

(60) тю

Осталось только компоненту расчет в базу добавить. А ключик на нее есть?

VladZ  
Спасибо большое есть над чем подумать

(62) сайт файл calc.dll ключ не просит

(62) до меня тут все стояло значит есть 1с лицензионное

(64) а где этот файл должен находится ?

я потому что у себя его не могунайти

папка с платформой

Нету там

А работает не чудеса ли )))

ты это не в базовой делаешь Г?

* + во внешних объектах

конфигурация комплексная

+CRM

я такую не знаю

(73) Интересно как комплексная можут быть без Календарей?
Ну насмешил!

а не проще вопросом сделать? :))   Типо КонМесяц(Дата)-1 и КонМесяц(дата)-2   Рабочие дни, Как Вы считаете? Если да тогда то то и то то Иначе то то и то то и то то КонецЕсли;

(0) а прибавить 1 и посмотреть, не поменялся ли месяц - не ком иль фо?

ветку не читал

(0) Мегаспец *убегает из ветки*

да, это он

кстати, в (0) адовы говны детектед:
1. дублирование кода
2. волшебные числа
3. смысл кода противоречит возвращаемому значению - смысл в ответе на вопрос: "а последнее ли нынче число", а возвращаемое значение: "а може напоминалку напомним?.."

Автор, вон из профессии

(82) я б вопросом решил бы , а если серьезно - надо тупо посмотреть как это в ЗиКе сделано и все дила.

Можно еще в справочник напихать последние дни каждого месяца ина три года расписать.

даже можно часик посидеть и на 10 лет вперед накатать в справочник - я б так и сделал. И не надо ничего писать и придумывать год = 24 записям.

а там пока заполнял бы ручками справочник  глядишь и закономерность какую нить открыл бы ...

завсом еще более фееричный долбо@б, нежели топикстартер...

(87) +1 :)

Завсому главное деньги получить за код, и чтобы код хотя бы 2 недели работал. ) До меня тут такие и работали, такой г(о)внокод, убил бы. )