Der längste e*pvp Thread XXXIV

' Hauptprogramm
'Programmtitel
TextWindow.Title = "Zinsen"

'Eingabe Kapital
TextWindow.Write("Geben Sie das Kapital zwischen 10 und 10 000 Euro ein :  ")
'Fehlermeldung
While kapital < 10 Or kapital > 1000000
  kapital = TextWindow.ReadNumber()
  If kapital < 10 Or kapital > 1000000 Then
    Fehlermeldung()
  EndIf
EndWhile

'Eingabe Zinssatz
TextWindow.Write("Geben Sie den Zinssatz zwischen 0.5 und 10.0 Prozent ein :  ")
'Fehlermeldung
While zinssatz < 0.5 Or zinssatz > 10.0
  zinssatz = TextWindow.ReadNumber()
  If zinssatz < 0.5 Or zinssatz > 10.0 Then
    Fehlermeldung()
  EndIf
EndWhile

'Eingabe Verzinsungsdauer Jahre
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 50 Jahren ein :  ")
jahr = TextWindow.ReadNumber()
'Fehlermeldung
If jahr < 0 Or jahr > 50 Then
  Fehlermeldung()
EndIf


'Eingabe Verzinsungsdauer Monate
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 11 Monaten ein :  ")
monat = TextWindow.ReadNumber()
'Fehlermeldung
If monat < 0 Or monat > 11 Then
  Fehlermeldung()
EndIf


'Eingabe Verzinsungsdauer Tage
TextWindow.Write("Geben Sie die Verzinsungsdauer von 0 bis 29 Tagen ein :  ")
tag = TextWindow.ReadNumber()
'Fehlermeldung
If tag < 0 Or tag > 29 Then
  Fehlermeldung()
EndIf


Zinsen = (kapital*zinssatz*(jahr*360)+(monat*30)+ tag/(100*360))
TextWindow.WriteLine("Es ergeben sich Zinsen von "+ Zinsen+" Euro.")


'Unterprogramm Fehlermeldung
Sub Fehlermeldung
  TextWindow.WriteLine("Falsche Eingabe!")
EndSub