RET F EXT
Материал из Фабиус wiki
Версия от 12:28, 12 марта 2018; Hisava (обсуждение | вклад)
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')
