hallo alle zusammen, ich versuch mich grade mit einem program auseinadere zusetzten mit dem mann den internen Zinsfuß ausrechen kann... jedoch hab ich volgendes problem. Im letzten Jahr fallen beim Zinsfuß Liquiditäserlöse an die ich gerne auf das letzte jahr schreiben möchte was jedoch nicht wie ich dass machen kann. das Problem liegt hier :
Edit by ~blaze~:
*vb-Tag eingefügt*
VB.NET-Quellcode
- 'Berechnung des Kapitalwertes
- Private Sub btnRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRechnen.Click
- Dim dblFixkosten As Double = 0
- Dim dblLiqui As Double = 0
- Dim dblAusgaben As Double = 0
- Dim dblEinnahmen As Double = 0
- Dim Kalkulationszinssatz As Double = 0.1
- Dim intJahr As Integer = 0
- Dim dblSumme As Double = 0
- Dim dblSummeMfix As Double = 0
- Dim Kapitalwert As Double = 0
- Dim Tabelle As String = "Jahr: Kapitalwert:"
- If Not IsNumeric(txtAusgaben.Text & txtEinnahmen.Text & txtFix.Text & txtJahr.Text & txtLiquidationswert.Text & txtSumme.Text) Then
- MessageBox.Show("Ungültige Eingabe!")
- Else
- dblFixkosten = Double.Parse(txtFix.Text)
- dblAusgaben = Double.Parse(txtAusgaben.Text)
- dblEinnahmen = Double.Parse(txtEinnahmen.Text)
- dblLiqui = Double.Parse(txtLiquidationswert.Text)
- intJahr = Integer.Parse(txtJahr.Text)
- For i = 0 To intJahr
- 'Berechnung des Kapitalwertes
- dblSumme = dblEinnahmen - dblAusgaben
- txtSumme.Text = dblSumme
- dblSummeMfix = dblSumme - dblFixkosten
- Kapitalwert = dblSummeMfix / (1 + Kalkulationszinssatz) ^ i
- 'Tabellen auf bau
- Tabelle = Tabelle & System.Environment.NewLine & i & " " & _
- Format(Kapitalwert, "Currency")
- Next
- MessageBox.Show(Tabelle)
- End If
Edit by ~blaze~:
*vb-Tag eingefügt*
