<% If Request.form("sviluppo") <> "" THEN IF Request.form("importo") <> "" AND Request.form("ratat") <> "" THEN Session.LCID = 1040 dim rata,credres,inter,tass,intatt,rimbcap,impnom,modpag,decorrata,durata,xy modpag = request.form("modpag") impnom =request.form("importo")*1000000 tass = int(request.form("tasso")*10000)/(1000000*modpag) durata = request.form("ratat") numrat = request.form("ratat")*modpag credres = impnom xy = (1+tass)^numrat rata = (impnom*xy*tass)/(xy-1) Sviluppo = Request.form("sviluppo") END IF select case modpag case 1 Annuale = "SELECTED" Semestrale = "" Trimestrale = "" Mensile = "" case 2 Annuale = "" Semestrale = "SELECTED" Trimestrale = "" Mensile = "" case 4 Annuale = "" Semestrale = "" Trimestrale = "SELECTED" Mensile = "" case 12 Annuale = "" Semestrale = "" Trimestrale = "" Mensile = "SELECTED" end select END IF %>
Università Lavoro Farmacie Legislazione Servizi Eventi Opinioni Informazioni Links Utili

   [ Home ] [ Precedente ]
-

-

Se vuoi calcolare il piano di ammortamento del tuo mutuo, riempi i campi del modulo sottostante.
Avrai come risultato l'importo di ciascuna rata suddivisa in quota d'interessi e rimborso di capitale e, per ogni periodo, l'ammontare di debito residuo.


Cambia i valori di default con i valori desiderati

Finanziamento Nominale:

 " size="20"> (in Milioni di lire)

Durata in Anni:

 " size="20">
Tasso di Interesse:

Modalità di pagamento:
 



<%If sviluppo <> "" THEN%>
<%= "Rata: " & formatcurrency(rata)%>
-
-
N°:
Rate pagate:
Interesse Rata:
Rimborso Capitale
Debito Residuo
<% for i = 1 to numrat if not credres*(tass/10)< 0 then if credres*(tass/10)> 100 then intatt = credres*(tass) else intatt = 0 end if else intatt = 0 end if if not (credres-(rata-credres*(tass)))< 0 then if (credres-(rata-credres*(tass)))> 100 then credres = (credres-(rata-credres*(tass))) else credres = 0 end if else credres = 0 end if response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
"& i & "" response.write ""& formatcurrency( rata*i ) & "" response.write "" response.write "
"& formatcurrency(intatt)& "
" response.write "		" response.write "
"& formatcurrency(rata - intatt)& "
" response.write "		" response.write "
"& formatcurrency(credres)& "
" response.write "
" next END IF %>

 



CATEGORIE PRINCIPALI  [ Home ] [ Precedente ] [ Università ] [ Lavoro ] [ Farmacie ] [ Legislazione ] [ Servizi ] [ Eventi ] [ Opinioni ] [ Informazioni ] [ Links Utili ]

SOTTOCATEGORIE   [ Precedente ]