Domanda.

Ciao...come va? sono peppe da Napoli tutto bene?
Ogni tanro ho bisogno della tua bravura e spero anche della tua disponibilita, e per questo ti ringrazio anticipatamente....--
dunque .....un piccolo quesito.....
da un importo fisso diciamo 10.000 euro ho bisogno di calcolare gli intersssi annui capitalizzando capitale + l'interesse e cosi via
esempio anno 0 10.000 il tasso 7%
              anno1 10.700
              anno2 11.449
              anno3 12.250
Poi da un certo anno in poi gli interessi cambiano
              anno4 13.475 tasso 10%
              anno2 14.822

spero di essere stato chiaro......ti ringrazio di nuovo
saluti
Peppe da Napoli
 

Risposta.

Peppe, questa routine potrai modificarla nei cicli per gli anni, e nelle percentuali relative:

Sub Interesse()
euro = CDbl(1000)

For n = 1 To 3 'per tre anni al 5% da 1 a 3
euro = CDbl((euro * 5) / 100) + euro
Next
tota1 = euro

For n = 1 To 4 'per 4 anni all'8% da 4 a 7
tota1 = CDbl((tota1 * 8) / 100) + tota1
Next
tota2 = tota1

For n = 1 To 5 'per 5 anni al 10% da 8 a 12
tota2 = CDbl((tota2 * 10) / 100) + tota2
Next
totale = CDbl(tota2)
End Sub

"totale" ti dà la cifra finale incrementata degli interessi capitalizzati.
saluti, ennius