POMOCY! Program : znak zodiaku (procedury/funkcje)

0

<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

0

function ZnakZodiaku: string;
var
DzienRoku: Integer;
Miesiac, Dzien: string;
begin
Miesiac := edtMiesiac.Text;
Dzien := edtDzien.Text;
DzienRoku := DayOfTheYear(StrToDate('2004'+'-'+Miesiac+'-'+Dzien));//2004, żeby działało także dla lat przestępnych
case DzienRoku of
0..20: Result := 'Koziorożec';
21..50: Result := 'Wodnik';
51..81: Result := 'Ryby';
82..111: Result := 'Baran';
112..142: Result := 'Byk';
143..174: Result := 'Bliźnięta';
175..205: Result := 'Rak';
206..236: Result := 'Lew';
237..267: Result := 'Panna';
268..297: Result := 'Waga';
298..327: Result := 'Skorpion';
328..357: Result := 'Strzelec';
358..366: Result := 'Koziorożec';
end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0