Hi leute,
wir haben in der Schule folgende Aufgabe bekommen:
4. Es ist ein Programm zu erstellen, mit dem man den Bruttoarbeitslohn für einen Mitarbeiter berechnen kann. Für die Berechnung des Bruttolohnes bei Überstunden gilt folgende Regelung: Solange die Überstunden bis zu 10% der monatlichen Sollstunden betragen, wird dem Mitarbeiter für jede Überstunde ein Überstundenzuschlag von 25% seines Stundenlohnes zusätzlich vergütet. Übersteigen die Überstunden die 10% Grenze, so soll dem Mitarbeiter für jede Überstunde ein Zuschlag von 30% gezahlt werden. Einzugebende Daten sind die Monatssollstunden, die Iststunden und der Stundenlohn.
Wir müssen das bis freitag haben und ich bekomme das Programm ein fach nicht zum
laufen
Bitte helft mir
wir machen noch nicht sehr lange Delphi, ich kopier euch mal nachfolgend meine programmierung rein,
vlt. wieß ja einer warum das nicht klappt!!!????
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var stundenlohn, pflichtstunden, stundengesamt, ueberstunden, bruttolohn,
rabatt1,rabattbetrag, rabatt2, rabattbetrag2, rabatt3 : double;
begin
stundenlohn := strtofloat (ED_STUNDENLOHN.Text);
pflichtstunden := strtofloat (ED_PFLICHTSTUNDEN.Text);
stundengesamt := strtofloat (ED_STUNDENGESAMT.Text);
ueberstunden := stundengesamt - pflichtstunden;
rabattbetrag := (ueberstunden/100)* 25;
rabattbetrag2 := (ueberstunden/100)*30;
rabatt3 := 0;
if stundengesamt >= pflichtstunden then begin
rabatt1 := (ueberstunden*rabattbetrag)+pflichtstunden;
end
else
begin
if stundengesamt >= rabatt1 then begin
rabatt2 := (ueberstunden*rabattbetrag2)+pflichtstunden;
end
else
begin
if (stundengesamt = pflichtstunden) or (stundengesamt <= pflichtstunden) then begin
rabatt3 := 0 ;
end;
end;
bruttolohn := pflichtstunden*stundenlohn;
ED_BRUTTOLOHN.text := floattostr (bruttolohn);
end;
end;
end.
Vielen Danke im Voraus!!!
Gruß MaxD
[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst machen. MfG, Matze[/edit]