DSHIFTBACK

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

Смещение времени в формате 'ггггммддс' на заданное количество месяцев

DSHIFTBACK( DSHIFT, n )

Похожа на TimeBack, но формат даты S и не теряется номер смены

Текст

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