Tampilan dari Zodiak di Program Delfi

unit Zodiak_U1;

Form1: TForm1;
implementation
{$R *.dfm}
Var KodeHari : integer;

Hari,Zodiak: string[10];
Tanggal:TdateTime;
Thn,Tgl,Bln:Word;
procedure TForm1.ProsesClick(Sender: TObject);
begin
// Pemisah Tanggal adalah-
Dateseparator:='-';
//Mencari Hari Lahir
Tanggal:=StrToDate(Ed_Tanggal.Text);
KodeHari:=DayOfWeek(tanggal);
Case KodeHari of
1: Hari:='Minggu';
2: Hari:='Senin';
3: Hari:='Selasa';
4: Hari:='Rabu';
5: Hari:='Kamis';
6: Hari:='Jumat';
7: Hari:='Sabtu';
end;
Ed_hari.Text:=Hari;
//Menentukan Zodiak
DecodeDate(Tanggal,Thn,Bln,Tgl);

If((Tgl>=21)And(Bln=3))Or((Tgl<=19)And(Bln=4))Then Zodiak:='Aries' Else If((Tgl>=20)And(Bln=4))Or((Tgl<=20)And(Bln=5))Then Zodiak:='Taurus' Else If((Tgl>=21)And(Bln=5))Or((Tgl<=21)And(Bln=6))Then Zodiak:='Gemini' Else If((Tgl>=22)And(Bln=6))Or((Tgl<=22)And(Bln=7))Then Zodiak:='Cancer' Else If((Tgl>=23)And(Bln=7))Or((Tgl<=22)And(Bln=8))Then Zodiak:='Leo' Else If((Tgl>=23)And(Bln=8))Or((Tgl<=22)And(Bln=9))Then Zodiak:='Virgo' Else If((Tgl>=23)And(Bln=9))Or((Tgl<=23)And(Bln=10))Then Zodiak:='Libra' Else If((Tgl>=24)And(Bln=10))Or((Tgl<=21)And(Bln=11))Then Zodiak:='SCORPIO' Else If((Tgl>=22)And(Bln=11))Or((Tgl<=21)And(Bln=12))Then Zodiak:='SAGITARIUS' Else If((Tgl>=22)And(Bln=12))Or((Tgl<=19)And(Bln=1))Then Zodiak:='CAPRICORN' Else If((Tgl>=20)And(Bln=1))Or((Tgl<=18)And(Bln=2))Then Zodiak:='AQUARIUS' Else If((Tgl>=19)And(Bln=2))Or((Tgl<=20)And(Bln=3))Then Zodiak:='PICES'
Else Zodiak :='-'; Ed_Zodiak.Text:=Zodiak;

end;
procedure TForm1.LagiClick(Sender: TObject);
begin
Ed_tanggal.Text:='';
Ed_Hari.Text:='';
Ed_Zodiak.Text:='';
Ed_Tanggal.SetFocus;
end;
procedure TForm1.SelesaiClick(Sender: TObject);
begin
Application.Terminate;
end;
end.