Feedback

VB - Nettopreis ermitteln

Veröffentlicht von am 15.10.2006
(2 Bewertungen)
Diese Funktion ermittelt den Nettopreis von einem Bruttopreis. Und wer glaubt man könnte z.B. einfach 16% von 100€ abziehen und hätte somit den Nettopreis der liegt leider falsch ;-)
''' <summary>
''' Diese Funktion ermittelt den Nettopreis von einem Bruttopreis
''' </summary>
''' <param name="GrossPrice">Den Bruttopreis</param>
''' <param name="Tax">Die Steuern für den Bruttopreis</param>
Public Function GetNetPrice(ByVal GrossPrice As Decimal, ByVal Tax As Single) As Decimal
    Return (GrossPrice / (GrossPrice + Tax)) * GrossPrice 
End Function
Abgelegt unter Brutto, Netto.

2 Kommentare zum Snippet

Dipl.-Inform. Thomas Ferdinand schrieb am 16.10.2006:
Da hat wohl jemand Brutto und Netto-Preis verwechselt ;-)
Tim Hartwig schrieb am 16.10.2006:
Tatsächlich, habs verbessert. Danke!
 

Logge dich ein, um hier zu kommentieren!