RET F EXT — различия между версиями

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

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

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

Функции Delphi