<font color="black"></span>
Witam!
Czy ktos ma moze pomysl jak zrobic cos takiego :
Program ma pokazywac znak zodiaku, na podstawie wprowadzonego dnia i miesiaca urodzenia.
Dwa listoboxy (w 1 wybieramy dzien, w 2 miesiac). Wciskamy button, a pole Edit wyswietla nam jaki mamy znak zodiaku.
Czy ponizsza funkcja jest rozpisana dobrze? Jak stworzyc do niej poprawne i dzialajace zdarzenie onclick ?
function Zodiak(day,month :byte):string;
var m : array[1..12] of integer;
z : array[1..12,0..1] of integer;
dzien, i, przestepny : integer;
begin
dzien:=0;
p:=0;
m[1]:=31; m[3]:=31; m[4]:=30; m[5]:=31; m[6]:=30; m[7]:=31; m[8]:=31;m[9]:=30;m[10]:=31; m[11]:=30;m[12]:=31;
z[1,0]:=
if (year(date) mod 4)=0 then
begin
m[2]:=29
p:=1;
end
else
m[2]:=28;
end;
for i:=1 to month do dzien:=dzien+m[i];
dzien:=dzien+day;
if (dzien>=20) and (dzien+p