[4kusNick]

Код:

function RetDate(inDate: TDateTime; inType: integer): integer;
var
xYear, xMonth, xDay: word;
begin
Result := 0;
DecodeDate(inDate, xYear, xMonth, xDay);
case inType 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;