Frage zu Finanzierung

[Mr. Floppy]

Moin Jungs!

Bei mir ist das schon zulange her..aber vielleicht kann das noch wer von euch.

Und zwar wenn ich mir 18.000 Euro zu einem effektiven Jahreszins von 0.9% ausleihe und über 72 Monate über feste Monatsraten abbezahlen möchte. Wie hoch ist dann die Monatsrate?

Kann das noch wer von euch mal bitte für mich eintippsen? Ich weiß net mehr genau wie das geht... ;o(

 

[DJ Doena]

ich glaube 263,81 bin mir aber nicht sicher, finanzmathe ist schon zu lange her

 

[Peter von Frosta]

Das habe ich doch schonmal irgendwo gelesen ...
Welches Auto willste dir denn kaufen ? Ich bin mir ziemlich sicher dieses Finanzierungsmodell schonmal bei einem Autohaus gesehen zu haben

 

[DJ Doena]

kann das mal bitte irgendwer in seinen javacompiler hauen, dann wissen wir es genau:
http://www.informatik.hu-berlin.de/~pinf1/1.Sem/Aufgaben/A7/07.html

 

[Mr. Floppy]

Will mir einen Seat Ibiza TDI mit 130 PS und Sport Ausstattung kaufen. Frührjar nächstes Jahr wahrscheinlich oder so. Mal gucken...Monatsrate hatte mich nur interessiert. )

 

[pkk]

Den Compiler für Java will ich sehn.

Meines wissens ist Java eine Interpreter-Sprache und dort gibt es nunmal keinen Compiler.

 

[DJ Doena]

java wird genauso wie jede andere sprache kompiliert. Das die Übersetzung nicht in nativen, sondern Zwischencode erfolgt, ist hierbei ersteinmal völlig nebensächlich.

 

[pkk]

Aber vom compilieren allein kannst du ja immer noch nicht sehen war raus kommt, darauf wollte ich ja hinaus...

javac Kompiliert den Java Bytecode
java Interpretiert den Java Bytecode

Ich denke jetzt sind wir uns einig, so halbwegs.

Aber letzendlich hat Java keinen richtigen Kompiler in dem Sinne...

 

[DJ Doena]

[erbsenzählermode=on]
nö.

javac kompiliert Java Sourcecode in Java Bytecode
java interpretiert Java Bytecode
[erbsenzählermode=off]

 

[Mr. Floppy]

Okay...aber so wirklich geholfen hat mir das jetzt noch net. *lach*

 

[DJ Doena]

mit diesem Algorithmus

Option Strict On
Option Explicit On 

Public Class EffJahrZins

    Public Shared Sub main(ByVal args() As String)
        Dim oldNear As Double
        Dim newNear As Double
        Dim EffJahrZins As Double
        Dim monate As Double
        Dim sum As Double
        Dim i As Integer

        If args.Length <> 3 Then
            WirfError()
            Exit Sub
        End If
        Try
            sum = CDbl(args(0))
        Catch
            WirfError("Kredit")
            Exit Sub
        End Try
        Try
            monate = CDbl(args(1))
        Catch
            WirfError("Monat")
            Exit Sub
        End Try
        Try
            EffJahrZins = CDbl(args(2))
        Catch
            WirfError("EffJahrZins")
            Exit Sub
        End Try
        Console.WriteLine("Kredit: " & sum & " Monate: " & monate & " EffJahrZins: " & EffJahrZins)

        newNear = (sum * ((1.0# + (EffJahrZins / 100.0#)) ^ (monate / 12.0#))) / monate

        Dim lastToHigh As Double = newNear
        Dim LastToLow As Double = 0.0#
        Dim rest As Double
        Dim zinssum As Double = sum

        Do
            Dim zins As Double = 0.0#
            Dim saveNear As Double
            rest = sum
            zinssum = sum

            For i = 0 To CInt(monate) - 1
                zins = Math.Round(rest * ((EffJahrZins / 12.0#) / 100.0#), 5)
                rest = Math.Round(rest - newNear + zins, 5)
                zinssum = Math.Round(zinssum + zins, 5)
            Next i
            If rest > 0 Then
                LastToLow = newNear
                newNear = Math.Round((lastToHigh + newNear) / 2.0#, 5)
            Else
                lastToHigh = newNear
                newNear = Math.Round((LastToLow + newNear) / 2.0#, 5)
            End If
        Loop While (Math.Round(newNear * monate, 2) <> Math.Round(zinssum, 2))
        Console.WriteLine(Math.Round(newNear, 2))
        Console.ReadLine()
    End Sub

    Private Shared Sub WirfError(Optional ByVal param As String = "")
        If param = "" Then
            Console.WriteLine("Ungültige Anzahl Parameter")
        Else
            Console.WriteLine("Ungültiger Paramter " & param)
        End If
        Console.WriteLine()
        Console.WriteLine("Syntax: EffJahrZins [Kredit] [Monate] [EffektiverJahresZins]")
        Console.WriteLine("Beispiel: EffJahrZins 18000,00 72 0,9")
    End Sub
End Class

komme ich auf 256,90€. Allerdings kommt der mit oben geposteten Rechenexempel nicht auf 102,94, sondern auf 103,02. Sind aber Rundungsfehler denk ich.