Имя: Пароль:
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
"в них нужно посчитать дней"
посчитать дней, куриц, яиц...
"от даты началы (???) до даты конца"
тогда уж "от даты началы до даты концы"
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.