RET F EXT

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')

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

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

Функции Delphi