Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Funktion - Prozedur
Autor: Levis
Datum: 28.12.01 15:12
In meinem Programm kommt folgender Code sehr häufig vor. Man könnte ihn doch durch eine Funktion oder Prozedur ersetzen. Aber damit kenne ich mich leider noch nicht aus. Eine Prozedur liefert im Gegensatz zur Funktion kein Ergebnis, oder? Was muss ich machen, um daraus eine Prozedur/Funktion zu machen, und wie muss ich sie an den entsprechenden Stellen aufrufen? Und wo sollen die Prozeduren/Funktionen gespeichert werden? In einem Form oder einem Modul? '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 Wie schaff ich es eigentlich, damit der Code hier im Forum auch als Code dargestellt wird?

Funktion - Prozedur	50	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	28	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