Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Rentenrechner
| Uploader: |  Siedlerchr |
| Datum/Zeit: | 17.08.2007 17:23:08 |
'Variablen Fehler werden sofort angezeigt
Dim As Single aKo, aRn,aRnv,aKov ,an, ap ,ar,arv,anv, Ko,Kov, Rn ,Rnv, n, p, ax,ay ,r,rv ,q'Varaiablen deklariert
'Defsng A-Z 'Runden
Color 2, 0 'Farbe Grün, Hintegrund schwarz
Print "=========================" 'Zur Deko;)
Print "Rentenrechner, vorschuessig und nachschuessig"
Print "-------------------------"
Print "EINGABEN":
Input "Rente(Einzahlungen nachschueesig)";r
Input "Rente (Einzahlungen vorschuessig";rv
Input "Barwert (nachschuessig)";Ko
Input "Barwert (vorschuessig)";Kov
Input "Zeitraum in Jahren"; n 'Variable:n
Input "Zinssatz"; p 'Variable:p
Input "Rentenendwert nachschuessig";Rn 'Variable:Rn
Input "Rentenendwert vorschuessig";Rnv
Print "-------------------------"
'Rechnung
'q festlegen
q=1+(p/100)
'ay festlegen-siehe Berechnung (n)
ay=(Rn*(q-1)/(r))+1
'-------------Rentenendwert nachschüssig--------
If Rn=0 Then
aRn = r * (q^n -1)/(q-1)
Else
aRn=Rn
End If
'------------Rentenendwert vorschüssig--------
If Rnv=0 Then
aRnv = (rv* (q^n -1)/(q-1)) *q
else
aRnv=Rnv
end if
'-----------Barwert brechnen nachschüssig------
If Ko=0 Then
aKo= r*(q^n -1)/(q^n *(q-1))
else
aKo=Ko
End If
'-----------Barwert brechnen vorschüssig------
If Kov=0 Then
aKov =r*q*(q^n -1)/(q^n * (q -1))
else
aKov=Kov
End If
'-----------Renteneinzahlungen(r)nachschüssig----
If r=0 then
ar= Rn* (q -1 ) / (q^n -1)
else
ar=r
End If
'-----------Renteneinzahlungen(r)vorschüssig-----
If r=0 then
arv= Rnv*(q-1)/(q^n -1)*q
else
arv=r
End If
'----------Zeitraum in Jahren (n) nachschüssig-------
If n=0 then
an= log(ay)/log(q)
else
an=n
End If
'-----------Zeitraum in Jahren (n) nachschüssig------
'---------------------------------------
Print "ERGEBNISSE:"
Print Using "Rentenendwert nachschuessig ########.##"; aRn
Print Using "Rentenendwert vorschuessig ########.##"; aRnv
Print Using "Barwert (nachschueesig)########.##"; aKo
Print Using "Barwert (vorschueesig)########.##"; aKov
Print Using "Zeitraum (nachschuessig)########.##"; an
Print Using "Zeitraum (vorschuessig)########.##"; anv
Print Using "Zinssatz ########.##"; ap
Print Using "Rente(einzahlungen nachschuessig)########.##";arn
Print Using "Rente(einzahlungen vorschuessig)########.##";arv
Print "========================="
Sleep'Nach Tastendruck beenden