DKSHIFT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «DKSHIFT - это программа из справочника R266 По дате (EoM(CurDate) as default) и номеру смены (1 as default) в…») |
Hisava (обсуждение | вклад) м (→Текст) |
||
| (не показаны 4 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
[[DKSHIFT]] - это программа из справочника [[R266]] | [[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]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 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() )
Текст
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
