Hallo leute,
Ich bin neu hier und habe mir gedacht das ihr mir vielleicht bei meinem kleinem Problem helfen könnt
.
Delphi-Quellcode:
procedure TForm1.Btn_ausfuehrenClick(Sender: TObject);
var monat,tage,jahr:integer;
Jzahl:integer;
begin
monat:=strtoint(Edt_monat.text);
jahr:=strtoint(Edt_jahr.text);
Edt_tage.text:=inttostr(tage);
case monat of
1,3,5,7,8,10,12:tage:= 31;
4,6,9,11:tage:=30;
end;
If ((Jzahl mod 4) = 0) then
begin
case monat of
2:tage:=29;
end
end
else
begin
If (((Jzahl mod 100)= 0 and (Jzahl mod 400)) <> 0) then
begin
case monat of
2:tage:=28;
end
end
else
begin
case monat of
2:tage:=29;
end;
end;
end;
end;
end.
In dieser Zeile
If (((Jzahl mod 100)= 0 and (Jzahl mod 400)) <> 0) then
bekomm ich folgende Fehlermeldung: E2008 Inkompatible Typen
Meine Frage ist nun wo ist der Fehler? Ich find irgendwie keinen und versteh auch nicht warum er Inkompatible Typen als Fehlermeldung bringt. Schon mal Danke für eure hilfe!!
mfg Sankar
