Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Funktion - Prozedur
Autor: Markus
Datum: 28.12.01 17:30
Hi Levis, Ja, es ist richtig: Eine Prozedur liefert keinen Rückgabewert, eine Function kann einen Rückgabewert liefern. In diesem Fall reicht eine Prozedur aus: Wenn der Code immer ganz genau der selbe ist, dann genügt einfach: Private Sub RabattRechnung () 'Variablen zuweisen dblEinzelpreis = CDbl(TX_Einzelpreis.Text) intMenge = CDbl(TX_Menge.Text) dblRabatt = CDbl(TX_Rabatt.Text) 'Endpreise ausrechnen TX_Endpreis_OR.Text = dblEinzelpreis * intMenge TX_Endpreis.Text = dblEinzelpreis * intMenge - dblEinzelpreis * intMenge / 100 * dblRabatt TX_Ersparnis.Text = TX_Endpreis_OR.Text - TX_Endpreis.Text 'Ergebnisse runden, falls erwünscht If Runden = True Then TX_Endpreis_OR.Text = Round(TX_Endpreis_OR.Text, 2) TX_Endpreis.Text = Round(TX_Endpreis.Text, 2) TX_Ersparnis.Text = Round(TX_Ersparnis.Text, 2) End If End Sub Als Aufruf genügt einfach: Cmd1_Click() RabattRechnung End Sub Es wäre besser, das ganze in einem Modul unterzubringen (das ist etwas übersichtlicher), dazu musst du Private am Anfang der Prozedur nur in Public umtauschen, aber es muss dann jedes Control noch zusätzlich mit der Form auf dem es sich befindet angesprochen werden, also z.B.: dblEinzelpreis = CDbl(Form1.TX_Einzelpreis.Text) Wie man den Code - Teil hier im Forum hinkriegt weiß ich auch nicht so ganz genau, aber es geht zumindest mit dem HTML - Tag tt ganz gut. Cu Markus

Funktion - Prozedur	49	Levis	28.12.01 15:12
Re: Funktion - Prozedur	30	Markus	28.12.01 17:30
Vielen Dank	26	Levis	28.12.01 18:33
Re: Funktion - Prozedur	27	TheTimoo	28.12.01 17:41

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen