[GIRL_A]

я делаю проект "вечный календарь" и мне нужна формула, котора считает какой знак зодиака выпадает на введённое число.... кто нибудь может помочь????!!!

[AlexSku]

Введи 12 границ (число, месяц). Для знаков зодиака они известны.

[Burka]

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

Код:

1 2 3 4 5 6 7

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 я погорячился) там конкретная дата, а тебе без года нужна.