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 < 4then

Result := 1

else// квартал

if xMonth < 7then

Result := 2

else

if xMonth < 10then

Result := 3

else

Result := 4;

end;

end;