Hier ist einen der Funktionen

Function EkStG(Einkommen As Double, Jahr As Variant)

Select Case Jahr
Case 2013
      y = Einkommen
      If y < 8129 Then
      y = 0
      ElseIf (y > 8129 And y < 13469) Then
      y = (933.7 * ((y - 8129) / 10000) + 1400) * ((y - 8129) / 10000)
      ElseIf (y >= 13469 And y < 52881) Then
      y = (((y - 13469) / 10000) * 228.74 + 2397) * ((y - 13469) / 10000) + 1014
      ElseIf (y >= 52881 And y < 250730) Then
      y = (y * 0.42) - 8196
      ElseIf y >= 250730 Then
      y = (y * 0.45) - 15718
      End If
Case 2014
      y = Einkommen
      If y < 8353 Then
      y = 0
      ElseIf (y > 8353 And y < 13469) Then
      y = (974.58 * ((y - 8353) / 10000) + 1400) * ((y - 8353) / 10000)
      ElseIf (y >= 13469 And y < 52881) Then
      y = (((y - 13469) / 10000) * 228.74 + 2397) * ((y - 13469) / 10000) + 971
      ElseIf (y >= 52881 And y < 250730) Then
      y = (y * 0.42) - 8239
      ElseIf y >= 250730 Then
      y = (y * 0.45) - 15761
      End If
 Case 2015
      y = Einkommen
      If y < 8473 Then
      y = 0
      ElseIf (y > 8473 And y < 13468) Then
      y = (997.6 * ((y - 8473) / 10000) + 1400) * ((y - 8473) / 10000)
      ElseIf (y >= 13468 And y < 52881) Then
      y = (((y - 13468) / 10000) * 228.74 + 2397) * ((y - 13468) / 10000) + 948.68
      ElseIf (y >= 52881 And y < 250729) Then
      y = (y * 0.42) - 8261.29
      ElseIf y >= 254446 Then
      y = (y * 0.45) - 15783.19
      End If
    Case 2016
      y = Einkommen
      If y < 8653 Then
      y = 0
      ElseIf (y > 8653 And y < 13669) Then
      y = (993.62 * ((y - 8653) / 10000) + 1400) * ((y - 8653) / 10000)
      ElseIf (y >= 13669 And y < 53665) Then
      y = (((y - 13669) / 10000) * 225.4 + 2397) * ((y - 13669) / 10000) + 952.48
      ElseIf (y >= 53665 And y < 254445) Then
      y = (y * 0.42) - 8394.14
      ElseIf y >= 254446 Then
      y = (y * 0.45) - 16027.52
      End If
    Case 2017
      y = Einkommen
      If y < 8820 Then
      y = 0
      ElseIf (y > 8820 And y < 13769) Then
      y = (1007.27 * ((y - 8820) / 10000) + 1400) * ((y - 8820) / 10000)
      ElseIf (y >= 13769 And y < 54057) Then
      y = (((y - 13769) / 10000) * 223.76 + 2397) * ((y - 13769) / 10000) + 939.57
      ElseIf (y >= 54057 And y < 256303) Then
      y = (y * 0.42) - 8475.44
      ElseIf y >= 256303 Then
      y = (y * 0.45) - 16164.53
      End If
Case Is >= 2018
      y = Einkommen
      If y < 9000 Then
      y = 0
      ElseIf (y > 9000 And y < 13996) Then
      y = (933.7 * ((y - 8129) / 10000) + 1400) * ((y - 8129) / 10000)
      ElseIf (y >= 13996 And y < 54949) Then
      y = (((y - 13469) / 10000) * 228.74 + 2397) * ((y - 13469) / 10000) + 948.49
      ElseIf (y >= 54949 And y < 260532) Then
      y = (y * 0.42) - 8621.75
      ElseIf y >= 260532 Then
      y = (y * 0.45) - 16437.7
      End If
    End Select
    y = Round(y, 0)
    EkStG = y
End Function