[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 и что бы выводился год, например близнецы,год собаки, как это реализовать не одскажите? Заранее благодарю!