home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1999 February / PCGO_2.ISO / PROGRAMM / VOLL / WinSk / ZINS2.WSC < prev   
Encoding:
Text File  |  1997-01-20  |  1.2 KB  |  47 lines
  1. ^Komplette Zinsberechnung
  2. 1    Zinsberechnung fⁿr Geldanlage
  3. 0    
  4. 39    Geldanlage berechnen|W'90'H'48'ZE
  5. 38    Anlagebetrag:|X'2'Y'2'L
  6. 38    1000|X'35'Y'1'W'20'TI'Betrag'
  7. 38    &Auszahlung..|X'57'Y'1'W'-2'H'6'DI'RechneAuszahlung'
  8. 38    Zinssatz:|X'2'Y'10'L
  9. 38    7|X'35'Y'9'W'20'TI'Zins'
  10. 38    Laufzeit:|X'2'Y'18'L
  11. 38    10|X'35'Y'17'W'20'TI'Laufzeit'
  12. 38    Auszahlungsbetrag:|X'2'Y'26'L
  13. 38    |X'35'Y'25'W'20'TI'Ergebnis'
  14. 38    &Einzahlung..|X'57'Y'25'W'-2'H'6'I'RechneEinzahlung'
  15. 38    |X'35'Y'30'W'20'TI'Prozent'A
  16. 38    &Fertig!|X'2'Y'-10'W'-2'H'8'I'Abbruch'C
  17. 0    
  18. 44    Anzeige_Element_RechneAuszahlung||
  19. 31    E
  20. 0    
  21. 1    Auszahlungsbetrag berechnen  >*
  22. 19    Anzeige_Element_RechneAuszahlung
  23. 22    Zins=1 + [.Element Zins] / 100|C
  24. 22    Wert=[.Element Betrag] * [Zins] ^ [.Element Laufzeit]|C
  25. 22    Wert=[Wertº0.00]|
  26. 22    .Element Ergebnis=[Wert]|
  27. 6    RechneProzent||
  28. -- 45    
  29. 0    
  30. 1    Einzahlungsbetrag berechnen  >*
  31. 19    Anzeige_Element_RechneEinzahlung
  32. 22    Zins=1 + [.Element Zins] / 100|C
  33. 22    Wert=[.Element Ergebnis] / [Zins] ^ [.Element Laufzeit]|C
  34. 22    Wert=[Wertº0.00]|
  35. 22    .Element Betrag=[Wert]|
  36. 0    
  37. 1    Prozent berechnen
  38. 19    RechneProzent
  39. 22    Prozent=[.Element Ergebnis] / [.Element Betrag] * 100|C
  40. 22    .Element Prozent== [Prozentº0.0]%|
  41. 0    
  42. 45    
  43. 0    
  44. 1    Ende!  >*
  45. 19    Anzeige_Element_Abbruch
  46. 5    C
  47.