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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
Строка 11: Строка 11:
 
  [[ACTUAL_LIFETIME]]( 1, DATE() )
 
  [[ACTUAL_LIFETIME]]( 1, DATE() )
 
[[Файл:20-01-2017 8-46-14.png]]
 
[[Файл: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]]
 
[[Функции Delphi]]

Текущая версия на 16:36, 10 октября 2019

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

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

ACTUAL_LIFETIME( r143_kod, data )

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

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

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

Пример

ACTUAL_LIFETIME( 1, DATE() )

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

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

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

Функции Delphi