Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Allgemein / Mathe / Prozent

Prozentrechnung

Impressum
Kontakt
DSVGO

Einleitung

Die Prozentrechnung ist gar nicht so schwer, auch wenn VB keine entsprechende Funktion zur Verfügung stellt. "Prozent" kommt nämlich von "pro cent", also auf deutsch "von hundert". "5%" bedeutet also wortwörtlich "5 von 100".

Wenn jetzt aber z.B. ein Kandidat in einer Prüfung 175 von 250 Punkten erreicht hat, wieviel Prozent hat er dann erreicht? Hier hilft der gute alte Dreisatz: "Wenn 250 Punkte gerade 100% entsprechen, dann entsprechen 175 Punkte x%." Durch Umstellen erreicht man folgendes Ergebnis: "x = 175 Punkte / 250 Punkte * 100%", also hat der Kandidat 70% erreicht.

Beispiele

Das folgende Beispiel benutzt die unten gezeigte Prozent-Funktion, um obiges "Problem" zu lösen:

Kandidat = 175
Prüfung = 250
Ergebnis = Prozentpunkte(Kandidat, Prüfung) 'ergibt 70

Umgekehrt bestimmt der folgende Funktionsaufruf, wieviele Punkte der Kandidat mindestens erreichen muss, damit er z.B. 50% (im Beispiel die Note "ausreichend") schafft:

Punkte = ProzentVal(Prüfung, 50) 'ergibt 125

Folgendes Beispiel schlägt auf einen Preis die Mehrwertsteuer auf:

Preis = 20 'DM
MWST = 15  '%
Rechnung = ProzentAdd(Preis, MWST) 'ergibt 23

Code / Quelltext

Der Code realisiert einfach die oben gezeigte Umstellung des Prozent-Dreisatzes:

Public Function Prozentpunkte( _
    ByVal Wert As Double, _
    ByVal Grundwert As Double _
  ) As Double
  Prozentpunkte = Wert / Grundwert * 100
End Function

Stellt man die Prozentformel nochmal um, so erhält man die folgende Funktion:

Public Function ProzentVal( _
    ByVal Grundwert As Double, _
    ByVal Prozent As Double _
  ) As Double
  ProzentVal = Grundwert * Prozent / 100
End Function

Die folgende Funktion erlaubt es, einen Grundwert um einen bestimmten Prozentwert zu erhöhen. Wird ein negativer Prozentwert angegeben, so wird natürlich der entsprechende Betrag abgezogen:

Public Function ProzentAdd( _
    ByVal Grundwert As Double, _
    ByVal Prozent As Double _
  ) As Double
  ProzentAdd = Grundwert * (1 + Prozent / 100)
End Function

© Jost Schwider, 19.08.2001-19.08.2001 - http://vb-tec.de/prozent.htm