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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Пример)
м (Текст)
Строка 6: Строка 6:
 
[[Файл:21-07-2017 16-39-31.png]]
 
[[Файл:21-07-2017 16-39-31.png]]
 
= Текст =
 
= Текст =
Parameters  Dt, Shft
+
Parameters  Dt, Shft
 
  Local  ss
 
  Local  ss
 
   
 
   

Версия 16:40, 21 июля 2017

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

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

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

Пример

DKSHIFT( DATE() )

21-07-2017 16-39-31.png

Текст

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