Имя: Пароль:
1C
1C 7.7
v7: Вычислить количество дней
,
0 work92
 
02.08.13
09:43
Есть выборка  Выбираю документы за период.
Например  выбрал документы есть 2 дока в них нужно посчитать дней от даты началы до даты конца .Использую созданный календарь  и функцию Календ.Дней но  веровно выдоет  результат (0).Может кто подскажет решение проблемы


     Таб=СоздатьОбъект("Таблица");
     таб.ИсходнаяТаблица("Таблица");
     Таб.вывестисекцию("шапка");
     ДокументОТ=СоздатьОбъект("Документ.ПриказПоОтпуску");
     ДокументБЛ=СоздатьОбъект("Документ.БольничныйЛист");
     Календ=СоздатьОбъект("Календарь.БЛ");
     ДатаОТ=ДобавитьМесяц(КонМесяца(рабочаядата()),-1);
     КонДатаОТ=ДобавитьМесяц(рабочаядата(),-7);

ДокументБЛ.Выбратьдокументы(КонДатаОТ,ДатаОТ);
    Пока ДокументБЛ.ПолучитьДокумент()=1 Цикл
        Если ДокументБЛ.Проведен()=1 Тогда
           Если ДокументБЛ.Сотрудник=Сотрудник1 Тогда
    НомБЛ=ДокументБЛ.НомерДок;
     ФИОБЛ=ДокументБЛ.Сотрудник;
     ДНЧБЛ=ДокументБЛ.Начало; // Дата Начало
     ДНКБЛ=ДокументБЛ.Окончание;///Дата окончания
    
     ДниБЛ=Календ.Дней(ДНЧБЛ,ДНКБЛ);
      Таб.вывестисекцию("Строка2");
   КонецЕсли;
    КонецЕсли;

    КонецЦикла;
  Таб.Вывестисекцию("Итог");
     Таб.Показать();
1 Любопытная
 
02.08.13
09:44
Мозг сломался об орфографические ошибки(
2 1Сергей
 
02.08.13
09:45
Календарные дни и без календаря посчитать можно
3 work92
 
02.08.13
09:47
как
4 work92
 
02.08.13
09:49
1Сергей  а как подсчитать очень нужно
5 1Сергей
 
02.08.13
09:49
ДниБЛ = ДНКБЛ - ДНЧБЛ;
6 work92
 
02.08.13
09:51
1Сергей СП
7 Chum
 
02.08.13
09:53
А НомерДняГода нельзя применить?
8 cincout
 
02.08.13
09:58
"выдоет" - от  слова "доить"?
9 vinogradъ
 
02.08.13
10:00
(6) бгг 1Сергей - СП
10 Jaffar
 
02.08.13
10:04
(8) а "веровно" тебя не смущает?
вероятно, вероломно?
11 Jaffar
 
02.08.13
10:05
"в них нужно посчитать дней"
посчитать дней, куриц, яиц...
"от даты началы (???) до даты конца"
тогда уж "от даты началы до даты концы"
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан