DElphi 6 MWST

Scodero · Hält's aus hier Beiträge: 1

Hallo, ich bin neu hier. Also wenn ich mit meinem Anliegen den falschen Foren-Bereich erwischt habe, bitte nicht gleich sauer werden^^

Ich hab seit kurzem das Delphi 6 auf dem PC und will damit in einem Edit-Feld einen NETTOBETRAG eingeben und nach einem KLick auf ein Button soll dann in zwei weiteren seperaten Feldern der Bruttobetrag und der ausgeschriebene MWST Betrag zu sehen sein.
Wie geh ich als totaller anfänger da vor?
WEr kann mir einen Muster-Quelltext oder einen guten Tipp geben? Ich find auch in der Delphi Hilfe keine Unterstützung

Danke

Ehemaliges Mitglied Erhaltene Danke: 1

Versuch es mal damit:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

const dMWST = 0.19;

function MWST(dWert: double): double;
begin
  Result := dWert * dMWST;
end;

function Brutto(dWert: double): double;
begin
  Result := dWert + MWST(dWert);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Netto: double;
begin
  Netto := StrToFloatDef(Edit1.Text,0);
  Edit2.Text := FloatToStr(MWST(Netto));
  Edit3.Text := FloatToStr(Brutto(Netto));
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme