ВЫРАЗИТЬ(&Число / 12 КАК ЧИСЛО(10, 0)) - количество лет
ВЫБОР
КОГДА &Число > 12
ТОГДА &Число - (ВЫРАЗИТЬ(&Число / 12 КАК ЧИСЛО(10, 0))) * 12
ИНАЧЕ &Число
КОНЕЦ - количество месяцев
(3) ВЫБРАТЬ
&Делимое - &Делитель *
ВЫБОР
КОГДА &Делимое/&Делитель > 0 ТОГДА
ВЫРАЗИТЬ(&Делимое/&Делитель - 0.5 КАК Число(15, 0))
ИНАЧЕ
ВЫРАЗИТЬ(&Делимое/&Делитель + 0.5 КАК Число(15, 0))
КОНЕЦ КАК ОстатокОтДеления
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший