![]() |
|
|
#1
|
|||
|
|||
|
я делаю проект "вечный календарь" и мне нужна формула, котора считает какой знак зодиака выпадает на введённое число.... кто нибудь может помочь????!!!
|
|
#2
|
|||
|
|||
|
Введи 12 границ (число, месяц). Для знаков зодиака они известны.
|
|
#3
|
|||
|
|||
|
А зачем формула, тут процедура нужна)
Код:
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 я погорячился) там конкретная дата, а тебе без года нужна. |