Thema Datum  Von Nutzer Rating
Antwort
Rot Berechnungen mit mehreren Funktionen
28.05.2021 12:47:00 Irina
Solved
28.05.2021 12:58:23 Gast78026
NotSolved
28.05.2021 15:24:59 Gast48660
NotSolved
28.05.2021 15:41:10 Gast82708
NotSolved
01.06.2021 10:34:29 Irina
NotSolved

Ansicht des Beitrags:
Von:
Irina
Datum:
28.05.2021 12:47:00
Views:
123
Rating: Antwort:
 Nein
Thema:
Berechnungen mit mehreren Funktionen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Berechnungen mit mehreren Funktionen
28.05.2021 12:47:00 Irina
Solved
28.05.2021 12:58:23 Gast78026
NotSolved
28.05.2021 15:24:59 Gast48660
NotSolved
28.05.2021 15:41:10 Gast82708
NotSolved
01.06.2021 10:34:29 Irina
NotSolved