Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Berechnungen innerhalb von vb
Autor: Pate
Datum: 08.05.07 20:18
ok eine letzte Frage, wie beziehe ich diese Aufgabenstellung mit ein? (52) § 39b ist anzuwenden ab dem Kalenderjahr 2005 mit der Maßgabe, dass an die Stelle der Angabe "16 vom Hundert" die Angabe "15 vom Hundert", an die Stelle der Angabe "9.228 Euro" die Angabe "9.144 Euro", an die Stelle der Angabe "26.072 Euro" die Angabe "25.812 Euro" und an die Stelle der Angabe "45 vom Hundert" die Angabe "42 vom Hundert" tritt. (Ende des Auszugs) derzeit sieht es so aus und funktioniert auch einwandfrei: Sub Steuern() Dim dblEingabe As Double Dim dblSteuer As Double dblEingabe = Val(Application.InputBox("Geben Sie bitte Ihr Jahreseinkommen an")) 'Anstatt Komma einen Punkt!!! If dblEingabe < 7665 Then MsgBox "Ihr Einkommen braucht nicht versteuert zu werden nach §52 EStG", vbInformation + vbOKOnly, "Hinweis" dblSteuer = 0 ElseIf dblEingabe >= 7665 And dblEingabe < 12740 Then dblSteuer = ((883.74 * ((dblEingabe - 7665) / 10000)) + 1500) * ((dblEingabe - 7665) / 10000) ElseIf dblEingabe >= 12740 And dblEingabe < 52152 Then dblSteuer = ((228.74 * ((dblEingabe - 12740) / 10000)) + 2397) * ((dblEingabe - 12740) / 10000) + 989 ElseIf dblEingabe >= 52152 Then dblSteuer = 0.42 * dblEingabe + 7914 End If If dblSteuer > 0 Then MsgBox "Ihre Steuern betragen: " & dblSteuer & " Euro.", vbInformation + vbOKOnly, "Einkommenssteuer" End Sub denn die maximal steuer soll ja nur auf 42% festgelegt sein

Berechnungen innerhalb von vb	880	Pate	08.05.07 13:17
Re: Berechnungen innerhalb von vb	592	bascaro	08.05.07 14:36
Re: Berechnungen innerhalb von vb	571	Pate	08.05.07 17:58
Re: Berechnungen innerhalb von vb	713	bascaro	08.05.07 18:44
Re: Berechnungen innerhalb von vb	585	Pate	08.05.07 18:56
Re: Berechnungen innerhalb von vb	632	Pate	08.05.07 19:42
Re: Berechnungen innerhalb von vb	641	Pate	08.05.07 20:18
Re: Berechnungen innerhalb von vb	600	bascaro	09.05.07 09:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen