ACTUAL LIFETIME — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
Строка 26: Строка 26:
 
  // data := Date()
 
  // data := Date()
 
   
 
   
  in_datdoc := SeekRef( 'R143', r143_kod, 'OLD_INDDT', 1 )
+
  in_datdoc := [[SeekRef]]( '[[R143]]', r143_kod, 'OLD_INDDT', 1 )
 
   
 
   
 
  if Empty( in_datdoc )
 
  if Empty( in_datdoc )

Версия 08:48, 20 января 2017

ACTUAL_LIFETIME - это программа из справочника R266

Фактический срок эксплуатации основного средства

Возвращает количество лет, месяцев

ACTUAL_LIFETIME( r143_kod, data )

r143_kod - код основного средства

data - дата, для которой необходимо установить фактический срок эксплуатации

Пример

ACTUAL_LIFETIME( 1, DATE() )

20-01-2017 8-46-14.png

Текст

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

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