RET F EXT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 2: | Строка 2: | ||
COMMON "ММГГ" в имени базы по параметру-дате | COMMON "ММГГ" в имени базы по параметру-дате | ||
[[RET_F_EXT]]( [Дата=CurDate] [, Годовой_ли=Нет] [, смещение от Дата в мес-х] ) | [[RET_F_EXT]]( [Дата=CurDate] [, Годовой_ли=Нет] [, смещение от Дата в мес-х] ) | ||
| + | = Текст = | ||
| + | Parameters dt, IsYear:=.f., Shift:=0 | ||
| + | if Empty(dt) | ||
| + | if Type('CurDate')='U'; dt:=Date(); else; dt:=CurDate; endif | ||
| + | endif | ||
| + | if Shift!=0; dt:=[[TimeBack]](dt,Shift); endif | ||
| + | result:=iif(IsYear,'!!',padl(Month(dt),2,'0'))+padl(Year(dt)%100,2,'0') | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 12:28, 12 марта 2018
RET_F_EXT - это функция из справочника R266
COMMON "ММГГ" в имени базы по параметру-дате
RET_F_EXT( [Дата=CurDate] [, Годовой_ли=Нет] [, смещение от Дата в мес-х] )
Текст
Parameters dt, IsYear:=.f., Shift:=0
if Empty(dt)
if Type('CurDate')='U'; dt:=Date(); else; dt:=CurDate; endif
endif
if Shift!=0; dt:=TimeBack(dt,Shift); endif
result:=iif(IsYear,'!!',padl(Month(dt),2,'0'))+padl(Year(dt)%100,2,'0')
