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

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

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

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