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