DKSHIFT

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

По дате (EoM(CurDate) as default) и номеру смены (1 as default) вернет DToS+Nсмены

DKSHIFT( [1 Дата=EoM(CurDate)] [2 N смены=1] м.б. Numeric или Char )

Пример

DKSHIFT( DATE() )

Текст

Parameters  Dt, Shft
Local  ss

result:=
if  Empty(Dt) .and. Type('CurDate')!='U';  Dt:=EoM(CurDate);  endif
if  !Empty(Dt)
  if  Empty(Shft);  ss:='1'
  else
    if  ValType('Shft')='C';  ss:=Shft
    elseif  ValType('Shft')='N';  ss:=a_s(Shft)
    endif
  endif
  if  !Empty(ss)
    result:=DToS(Dt)+ss
  endif
endif

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

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

Функции Delphi