Delphi-Quellcode:
procedure Berechnen(var Betrag: Currency);
begin
if Betrag > 100 then Ziehe_Rabatt_ab(Betrag);
mwst_dazu(Betrag);
end;
Mehr isses eigentlich nicht... und das bisschen Prozentrechnung wirst du hoffentlich noch selber können.
Wenns um was anderes geht - immer so schreiben:
"Ich will x machen, ich hab y schon geschrieben, aber z funktioniert nicht, es gibt die Fehlermeldung bla"
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1