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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 10: Строка 10:
  
 
[[DSHIFTBACK]]( DSHIFT, n )
 
[[DSHIFTBACK]]( DSHIFT, n )
 +
 +
= Текст =
 +
 +
Parameters DSHIFT,n
 +
 +
if [[Empty]](DSHIFT) or [[Empty]](n); return(DSHIFT); endif
 +
 +
local a:=''
 +
// DSHIFT='200701171'
 +
 +
if [[Len]](DSHIFT)=9; a:=[[Right]](DSHIFT,1); endif
 +
 +
result:=[[DtoS]]([[TimeBack]]([[StoD]](DSHIFT),n))+a
  
 
= Смотрите также =
 
= Смотрите также =

Версия 09:42, 23 января 2017

DSHIFTBACK - это функция из справочника R266

Смещение времени в формате 'ггггммддс'

на заданное количество месяцев

Похожа на TimeBack, но формат даты S

и не теряется номер смены

DSHIFTBACK( DSHIFT, n )

Текст

Parameters DSHIFT,n

if Empty(DSHIFT) or Empty(n); return(DSHIFT); endif

local a:=
// DSHIFT='200701171'

if Len(DSHIFT)=9; a:=Right(DSHIFT,1); endif

result:=DtoS(TimeBack(StoD(DSHIFT),n))+a

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

Функции Delphi

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