Public Function Gesamtbetrag(AnzahlSchokoladentafeln As Integer, AnzahlGummibärenpackungen As Integer, AnzahlObst As Integer) As Double
Gesamtbetrag = AnzahlSchokoladentafeln * 4.5 + AnzahlGummibärenpackungen * 3.25 + AnzahlObst * 2.5
If (Gesamtbetrag > 50) Then
Gesamtbetrag = Gesamtbetrag * 0.9
End If
Gesamtbetrag = Round(Gesamtbetrag, 2)
End Function
Ich will, dass der Gesamtbetrag in € ausgegeben wird. Wie macht man das?
|