Hallo zusammen,
zur Zeit bin ich im Studium zur Fachinformatikerin/Anwendungsentwicklung.
Ich habe eine Aufgabe zu erfüllen, wo mehrere Berechnungen definiert werden, die dann in der Inbox angezeigt werden sollen.
Soweit funktioniert dies, aber in der Inbox wird die Mwst und das Brutto mit der Ziffer 0 angezeigt, also die Berechnungen werden nicht ausgeführt.
Folgendes habe ich probiert:
Sub Steuerprogramm()
WertEingabe
RabattBerechnen
MwstBerechnen
BruttoBerechnen
MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
End Sub
Sub WertEingabe()
Dim Nettobetrag As Double
Dim Mwst As Single
Dim Bruttobetrag As Double
Nettobetrag = InputBox("Bitte geben Sie den Endbetrag der Rechnung ein:")
MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
End Sub
Function RabattBerechnen(Nettobetrag As Double)
If Nettobetrag > 500 Then
Nettobetrag = Nettobetrag * 0.9
End If
End Function
Function MwstBerechnen(Mwst As Single, Nettobetrag As Double)
Mwst = Nettobetrag * 0.19
End Function
Function BruttoBerechnen(Bruttobetrag As Double, Mwst As Single, Nettobetrag As Double)
Bruttobetrag = Nettobetrag + Mwst
End Function
Auch dies habe ich ausprobiert:
Sub Steuerprogramm()
WertEingabe
RabattBerechnen
MwstBerechnen
BruttoBerechnen
MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
End Sub
Sub WertEingabe()
Dim Nettobetrag As Double
Dim Mwst As Single
Dim Bruttobetrag As Double
Nettobetrag = InputBox("Bitte geben Sie den Endbetrag der Rechnung ein:")
MsgBox "Netto: " & Nettobetrag & vbCr & "Mwst: " & Mwst & vbCr & "Brutto: " & Bruttobetrag, , "Der Rechnungsbetrag beläuft sich auf..."
End Sub
Function RabattBerechnen(Nettobetrag As Double, Mwst As Single, Bruttobetrag As Double)
If Nettobetrag > 500 Then
Nettobetrag = Nettobetrag * 0.9
End If
Mwst = Nettobetrag * 0.19
Bruttobetrag = Nettobetrag + Mwst
End Function
Wo liegt hier der Fehler?????
LG Irina
|