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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Пример)
м (Пример)
 
(не показаны 4 промежуточные версии этого же участника)
Строка 3: Строка 3:
 
[[DKSHIFT]]( [1 Дата=EoM(CurDate)] [2 N смены=1] м.б. Numeric или Char )
 
[[DKSHIFT]]( [1 Дата=EoM(CurDate)] [2 N смены=1] м.б. Numeric или Char )
 
= Пример =
 
= Пример =
 +
dkshift( date() )
 +
 
  [[DKSHIFT]]( [[DATE]]() )
 
  [[DKSHIFT]]( [[DATE]]() )
 
[[Файл:21-07-2017 16-39-31.png]]
 
[[Файл: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]]
+
[[DKSHIFT_STR]]

Текущая версия на 08:33, 22 октября 2019

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

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

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

Пример

dkshift( date() )
DKSHIFT( DATE() )

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

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

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

DKSHIFT_STR