Вычисление оставшегося срока полезного использования основного средства в месяцах
В справочнике Основных средств есть дата ввода в эксплуатацию (например, 14.03.2002) и срок полезного использования (60 месяцев). Как программно вычислить срок оставшегося полезного использования?
Для этого нужно использовать функцию ДобавитьМесяц:
КолвоМес = 0;
ДатаВвода = Дата(2002,03,14);
СрокИспользования = 60;
ТекМес = НачМесяца(ДобавитьМесяц(ДатаВвода,1));
Пока ТекМес<НачМесяца(ДатаДок) Цикл
ТекМес = ДобавитьМесяц(ТекМес,1);
КолвоМес = КолвоМес + 1;
КонецЦикла;
ОстСрок = СрокИспользования – КолвоМес; // кол-во оставшихся месяцев для начисления износа
Комментарии | опубликовано: 30 Ноябрь 2007, 15:38