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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
Строка 5: Строка 5:
 
  [[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]]
 
[[Функции Delphi]]

Версия 08:12, 12 сентября 2019

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

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

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

Функции Delphi