title image


Smiley TIPP: Einkommensteuerformel in VB(A)


Public Function Einkommensteuer(ByVal Jahr As Long, ByVal Einkommen As Currency) As Currency

' 2001 in DM, 2002 in EUR!

Dim y As Double, z As Double, Steuereinkommen As Long



Einkommensteuer = 0

If Jahr = 2001 Then

Steuereinkommen = ((Einkommen \ 54) * 54) + 27

y = (Steuereinkommen - 14040) / 10000

z = (Steuereinkommen - 18036) / 10000

If Steuereinkommen < 14094 Then

Einkommensteuer = 0

ElseIf Steuereinkommen < 18090 Then

Einkommensteuer = Fix(((387.89 * y) + 1990) * y)

ElseIf Steuereinkommen < 107568 Then

Einkommensteuer = Fix((((142.49 * z) + 2300) * z) + 857)

Else

Einkommensteuer = Fix((0.485 * Steuereinkommen) - 19299)

End If

ElseIf Jahr = 2002 Then

Steuereinkommen = ((Einkommen \ 36) * 36) + 18

y = (Steuereinkommen - 7200) / 10000

z = (Steuereinkommen - 9216) / 10000

If Steuereinkommen < 7236 Then

Einkommensteuer = 0

ElseIf Steuereinkommen < 9252 Then

Einkommensteuer = Fix(((768.85 * y) + 1990) * y)

ElseIf Steuereinkommen < 55008 Then

Einkommensteuer = Fix((((278.65 * z) + 2300) * z) + 432)

Else

Einkommensteuer = Fix((0.485 * Steuereinkommen) - 9872)

End If

End If

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: