Вычислить фактический срок эксплуатации

Описание

Текст примера

 // Этот макрос возвращает количество месяцев, выработанное объектом. Первое
// значение - начальная дата, второе значение - конечная. Третье - результат.
Macro Выч_Факт_Срок_Экспл (ДатаВвода, ДатаСписания, ФактСрок);
Var День_вв, Месяц_вв, Год_вв, // Дата ввода в эксплуатацию
    День_сп, Месяц_сп, Год_сп; // Дата вычисления
 DateSplit (ДатаСписания, День_сп, Месяц_сп, Год_сп);// Дата акта списания
 DateSplit (ДатаВвода, День_вв, Месяц_вв, Год_вв);   // Дата ввода в эксплуатацию
 If   (ДатаСписания == ДатаВвода)
      ФактСрок = String ("0")
 Elif ((Год_сп == Год_вв) And (Месяц_сп == Месяц_вв))
      ФактСрок = String ((День_сп - День_вв), " дн.");
 Elif (Год_сп == Год_вв)
      ФактСрок = String (Месяц_сп - Месяц_вв);
 Else ФактСрок = String ((((Год_сп - 1) - Год_вв) * 12) + Месяц_сп + (13 - Месяц_вв));
 End;
 SetParm (2, ФактСрок);
End;