Option Explicit

' Aufgabe 2.1

Function verbrauch(ByVal benzin As Double, ByVal strecke  As Double) As Double
    verbrauch = benzin * 100 / strecke
End Function


' Aufgabe 2.2.

Function netto_brutto(ByVal wert As Double, ByVal richtung As Boolean) As Double
    If richtung Then
        netto_brutto = wert * 1.19
    Else
        netto_brutto = wert / 1.19
    End If
End Function

' Aufgabe 2.3

Function zinseszins(ByVal betrag As Double, ByVal zinssatz As Double, ByVal jahre As Integer) As Double
    Dim aufzinsungsfaktor As Double

    aufzinsungsfaktor = 1 + zinssatz / 100

    zinseszins = betrag * (aufzinsungsfaktor) ^ jahre
End Function

' Aufgabe 2.4

Function annuitaet(ByVal betrag As Double, ByVal zinssatz As Double, ByVal jahre As Integer) As Double
    Dim aufzinsungsfaktor As Double
    Dim zaehler As Double
    Dim nenner As Double

    aufzinsungsfaktor = 1 + zinssatz / 100
    zaehler = aufzinsungsfaktor ^ jahre * (aufzinsungsfaktor - 1)
    nenner = aufzinsungsfaktor ^ jahre - 1

    annuitaet = betrag * zaehler / nenner
End Function