[Burka]

А зачем формула, тут процедура нужна)

Код:

procedure GetZodiak(data: TDateTime):string;
begin
if (data>data1) and (data<data2) then result := 'козерог'
 else
  if (data>data3) and (data<data4) then result := 'следующий'
   {и так далее}
end;

dataN и data{N+1} это рамки знака зодиака.
Ну хотя с TDateTime я погорячился) там конкретная дата, а тебе без года нужна.