ACTUAL LIFETIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 36: | Строка 36: | ||
// фактический срок эксплуатауции ( лет, месяцев ) | // фактический срок эксплуатауции ( лет, месяцев ) | ||
| − | years := Int( dm[1] / 12 ) | + | years := [[Int]]( dm[1] / 12 ) |
months := dm[1] - years * 12 | months := dm[1] - years * 12 | ||
Версия 08:49, 20 января 2017
ACTUAL_LIFETIME - это программа из справочника R266
Фактический срок эксплуатации основного средства
Возвращает количество лет, месяцев
ACTUAL_LIFETIME( r143_kod, data )
r143_kod - код основного средства
data - дата, для которой необходимо установить фактический срок эксплуатации
Пример
ACTUAL_LIFETIME( 1, DATE() )
Текст
parameters r143_kod, data local in_datdoc, dm, years, months // r143_kod := 3857 // data := Date() in_datdoc := SeekRef( 'R143', r143_kod, 'OLD_INDDT', 1 ) if Empty( in_datdoc ) in_datdoc := SeekRef( 'R143', r143_kod, 'INDATDOC', 1 ) endif dm := DiffMonth( in_datdoc, data ) // фактический срок эксплуатауции ( лет, месяцев ) years := Int( dm[1] / 12 ) months := dm[1] - years * 12 result := years + ', ' + months
