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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
(не показаны 4 промежуточные версии этого же участника)
Строка 1: Строка 1:
 
[[ACTUAL_LIFETIME]] - это программа из справочника [[R266]]
 
[[ACTUAL_LIFETIME]] - это программа из справочника [[R266]]
 
+
Фактический срок эксплуатации основного средства
Фактический срок эксплуатации основного средства
+
[[ACTUAL_LIFETIME]]( r143_kod, data )
  
 
Возвращает количество лет, месяцев
 
Возвращает количество лет, месяцев
 
ACTUAL_LIFETIME( r143_kod, data )
 
  
 
r143_kod - код основного средства
 
r143_kod - код основного средства
  
 
data - дата, для которой необходимо установить фактический срок эксплуатации
 
data - дата, для которой необходимо установить фактический срок эксплуатации
 
 
= Пример =
 
= Пример =
 
 
  [[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