[Hetrue]

Код:

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var ch,mes:integer;
begin
ch:=StrToInt(edt1.text);mes:=StrToInt(edt2.text);

if (ch>0) and (ch<32) and  (mes>0) and (mes<13) then
case mes of
1: if ch>=20 then lbl3.Caption:='Водолей' else lbl3.caption:='Козерог';
2: if ch>=21 then lbl3.Caption:='Рыбы' else lbl3.caption:='Водолей';
3: if ch>=21 then lbl3.Caption:='овен' else lbl3.caption:='Рыбы';
4: if ch>=21 then lbl3.Caption:='Телец' else lbl3.caption:='Овен';
5: if ch>=22 then lbl3.Caption:='Близнецы' else lbl3.caption:='телец';
6: if ch>=22 then lbl3.Caption:='Рак' else lbl3.caption:='Близнецы';
7: if ch>=24 then lbl3.Caption:='Лев' else lbl3.caption:='Рак';
8: if ch>=23 then lbl3.Caption:='Дева' else lbl3.caption:='Лев';
9: if ch>=22 then lbl3.Caption:='Весы' else lbl3.caption:='Дева';
10: if ch>=24 then lbl3.Caption:='Скорпионн' else lbl3.caption:='Весы';
11: if ch>=23 then lbl3.Caption:='Стрелец' else lbl3.caption:='Скорпион';
12: if ch>=22 then lbl3.Caption:='Козерог' else lbl3.caption:='Стрелец';
end
   else lbl3.caption:='Неверно введены значения';
   edt1.text := formatdatetime('dd', (DTP1.Date));
edt2.text := formatdatetime('mm', (DTP1.Date));
   end;

procedure TForm1.btn2Click(Sender: TObject);
begin
Close;
end;

end.

Админ: Пользуемся тегами для оформления кода!

и мен надо что бы еще использовался DataTimePicker и что бы выводился год, например близнецы,год собаки, как это реализовать не одскажите? Заранее благодарю!

[freedomman]

делишь текуший год на 12 и по остатку через case указываешь какой это год

[Hetrue]

Сообщение от freedomman

делишь текуший год на 12 и по остатку через case указываешь какой это год

благодарю, но..мне бы кодинг, а то я не шарю практически

[dr. F.I.N.]

Вот жеж блин! Как это все осточертело!!!!
Одно дело НЕ ШАРЮ! Другое дело Мне наплеть на знания! Я хочу чтоб за меня сделали!
Вбиваем в Яндекс "delphi текущий год": и первая ссылка
Аналогичный запрос Яндексу подсказывает нам, как получить остаток от деления
Дальше нам не ясно, что такое CASE и снова подсказывает Яндекс!
А если помусолить поисковики получше, то можно и исходники найти (А ведь всего-то спросил "delphi год зодиака"!!! Никаких премудраций в запросе!).

Накипело блин!

[Admin]

Сообщение от dr. F.I.N.

Накипело блин!

И тем не менее стараемся держать себя в руках

[dr. F.I.N.]

Сообщение от Admin

И тем не менее стараемся держать себя в руках

Извиняюсь за OffTop, извиняюсь за немного резкий тон. Но выразился я в рамках дозволенного. Даже решение человеку нашел и доходчиво объяснил как надо искать ответы на интересующие его вопросы. Плюс готовое решение

Замечание принял.

[Hetrue]

Благодарю, но я честно искал, честно пытался сделать, но ничего не выходило, и поэтому сюда написал, потому что здесь хороший форум, и умные дюди, и прости ужза такое доведение тебя, до злости)

[dr. F.I.N.]

Сообщение от Hetrue

Благодарю, но я честно искал, честно пытался сделать, но ничего не выходило, и поэтому сюда написал, потому что здесь хороший форум, и умные дюди, и прости ужза такое доведение тебя, до злости)

Злости нет. Есть обида на совреемнную реальность. Раньше люди стремились, грызли, искали, потели... сейчас же проще спросить...

[Konrad]

В разделе работа тебе помогут.
http://www.delphisources.ru/forum/forumdisplay.php?f=34


П.с.:
dr. F.I.N. +100000000*10^(256!)