Имя: Пароль:
1C
 
Как в 1С 7.7 определить количество рабочих дней между заданными датами?
Ø
0 Beatles
 
11.01.05
09:58
По украинскому календарю, учитывая праздники???
1 Муму после всплытия
 
11.01.05
09:59
что, на Украине календарь сменили?? от начала правления Ющенки??
2 Beatles
 
11.01.05
10:09
Нет. Просто Украинский календарь отличается, например, от японского.
Ну так вот, меня интересуетименно Украинский :-)
3 tim
 
11.01.05
10:09
(1) :))))))))))))
4 не корысти ради
 
11.01.05
10:14
//====================================================================================
Функция КолвоРабДнейИнтервал(НачДат,КонДат) Экспорт
  //за минусом праздников, по пятидневке
  Праздники=СоздатьОбъект("СписокЗначений");
  Праздники.ДобавитьЗначение("01.01.","01.01."); //1 января
  Праздники.ДобавитьЗначение("02.01.","02.01."); //2 января
  Праздники.ДобавитьЗначение("08.03.","08.03."); //8 марта
  Праздники.ДобавитьЗначение("22.03.","22.03."); //наурыз 22 марта
  Праздники.ДобавитьЗначение("01.05.","01.05."); //1 мая
  Праздники.ДобавитьЗначение("09.05.","09.05."); //9 мая
  Праздники.ДобавитьЗначение("30.08.","30.08."); //30 августа
  Праздники.ДобавитьЗначение("25.10.","25.10."); //25 октября
  Праздники.ДобавитьЗначение("16.12.","16.12."); //16 декабря
  Праздники.ДобавитьЗначение("17.12.","17.12."); //17 декабря
  
  КолРабДней=0;
  ДеньМесяц="";
  Для К=НачДат По КонДат Цикл
    Если (НомерДняНедели(К)>=1) И (НомерДняНедели(К)<=5) Тогда
      ДеньМесяц=Лев(СокрЛП(Строка(К)),6);
      Если (Праздники.НайтиЗначение(ДеньМесяц)=0) Тогда
        КолРабДней=КолРабДней+1;
      КонецЕсли;
    КонецЕсли;
  КонецЦикла;
  Возврат КолРабДней;
КонецФункции
//==============================================================================
5 Beatles
 
11.01.05
10:18
(4) прикольно, а есть еще варианты?
6 Beatles
 
11.01.05
10:24
Up.
7 Меланхоличный ворон
 
11.01.05
10:25
(6) Компонента "Расчет" куплена?
8 Beatles
 
11.01.05
10:28
(7) Да.
9 Меланхоличный ворон
 
11.01.05
10:29
(8) Так заполняй праздники, календарь и вперед!
10 Beatles
 
11.01.05
10:48
Я слышал, что в 1С-ке не очень удобно заполнять календари...
11 Кортес
 
11.01.05
11:04
Неудобно на потолке спать.
12 Beatles
 
11.01.05
11:09
(11)У тебя то же одеяло падает?:-)
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.