Code:

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;