>Υπολογισμός διάρκειας διπλασιασμού κεφαλαίου και υπολογισμός κεφαλαίου μετά από χ έτη στη Visual Basic 6
>
Σε μια φόρμα δίνονται:
α) Το αρχικό κεφάλαιο (Text1) και
β) Το ετήσιο επιτόκιο (Text2) (π.χ. 2,4)
α) Το αρχικό κεφάλαιο (Text1) και
β) Το ετήσιο επιτόκιο (Text2) (π.χ. 2,4)
1) Να υπολογιστεί σε πόσα χρόνια θα διπλασιαστεί το αρχικό κεφάλαιο (Text3).
Επίσης, στην ίδια φόρμα δίνονται και τα έτη (διάρκεια) ανατοκισμού ενός κεφαλαίου (Text4)
2) Να υπολογιστεί το κεφάλαιο που θα προκύψει σε τόσα έτη (τελικό κεφάλαιο) (Text5)
Ο κώδικας για το κουμπί “Υπολογισμός ετών για το διπλασιασμό του κεφαλαίου” είναι:
Dim ak As Single
Dim ep As Single
Dim tk As Single
Dim xronia As Integer
ak = Text1
ep = Text2
xronia = 0
tk = ak
Do While (tk < 2 * ak)
tk = tk + tk * (ep / 100)
xronia = xronia + 1
Loop
Text3 = xronia
Ο κώδικας για το κουμπί “Υπολογισμός κεφαλαίου” είναι:
Dim ak As Single
Dim ep As Single
Dim tk As Single
Dim xronia As Integer
ak = Text1
ep = Text2
xronia = Text4
tk = ak
For i = 1 To xronia
tk = tk + tk * (ep / 100)
Next i
Text5 = tk