Версия 08:48, 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

Смотрите также

Функции Delphi

Полезные функции