ACTUAL LIFETIME — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[ACTUAL_LIFETIME]] - это программа из справочника [[R266]] | [[ACTUAL_LIFETIME]] - это программа из справочника [[R266]] | ||
| − | + | Фактический срок эксплуатации основного средства | |
| − | Фактический срок эксплуатации основного средства | + | [[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 | parameters r143_kod, data | ||
| Строка 34: | Строка 27: | ||
dm := [[DiffMonth]]( in_datdoc, data ) | dm := [[DiffMonth]]( in_datdoc, data ) | ||
| − | // фактический срок | + | // фактический срок эксплуатации ( лет, месяцев ) |
years := [[Int]]( dm[1] / 12 ) | years := [[Int]]( dm[1] / 12 ) | ||
| Строка 40: | Строка 33: | ||
result := years + ', ' + months | result := years + ', ' + months | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 16:50, 21 июля 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
