Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Универсальная функция возврата значения элемента даты

01.01.2007

Автор: Галимарзанов Фанис

Универсальная функция возврата значения элемента даты (год, месяц, день, квартал):

function RetDate(inDate: TDateTime; inTip: integer): integer;
var
  xYear
, xMonth, xDay: word;
begin
 
Result := 0;
 
DecodeDate(inDate, xYear, xMonth, xDay);
 
case inTip of
   
1: Result := xYear;  // год
   
2: Result := xMonth; // месяц
   
3: Result := xDay;   // день
   
4: if xMonth < 4 then
         
Result := 1
       
else // квартал
       
if xMonth < 7 then
         
Result := 2
       
else
       
if xMonth < 10 then
         
Result := 3
       
else
         
Result := 4;
 
end;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0