• Excel & VBA
Calcola il mutuo

21-01-2010

“Prestito” È un programma vecchio piccolo, Che io abbia mai fatto in VB5. Questo ti permette una panoramica completa di un tale mutuo ipotecario. Prestiti sia lineari e rendita può essere calcolato.

Schermo

Il programma consiste in una forma piccola, quando si leningsom, la durata del prestito e il tasso di interesse può riempire, se è possibile inserire la data del prestito. In tal caso, i dati dell'indagine ha anche indicato.

lening

Panoramica

Se si “calcolare” cliccare, Avere una panoramica completa di tutti i termini del prestito, compresi i canoni mensili, interesse e la durata residua del debito da.

lening-overzicht

Excel esportazione

Il sondaggio può anche esportare in Excel. Per un esempio di un elenco in Excel: prestito overzicht.xls

Codice di calcolo

Il calcolo manuale di annuïtenleningen è spesso un laborioso karwijtje, mentre la codifica il calcolo include solo poche dozzine di righe di codice. Questo è il codice VB in cui si svolge il calcolo effettivo.

 Funzione pubblica gfvIntrestAnnuiteit(Optional ByVal evvKapitaal As Variant, _
                        , _
                        , _
                        ) As Variant
'-------------------------------------------
'De formule : K = Ann / un(n,p)
'pre : tutti invoerparam opzionale, tranne l'ignoto, sono noti;
'      de functie 'gfvGetValueIntrestTables' deve poter essere chiamato;
'post: La funzione ottiene il valore dello sconosciuto.
'-------------------------------------------
    Se IsMissing(evvKapitaal) Then 'K = Ann / un(n,p)
        gfvIntrestAnnuiteit = CDec(evvAnnuiteit / gfvGetValueIntrestTables(evvPercentage, evvPerioden, Vero, Vero))
    ElseIf IsMissing(evvAnnuiteit) Then 'Ann = K / un(n,p)
        gfvIntrestAnnuiteit = CDec(evvKapitaal / gfvGetValueIntrestTables(evvPercentage, evvPerioden, Vero, Vero))
    End If
(EvvPercentage ByVal As Variant, _
                    , _
                    , _
                    ) As Variant
'-------------------------------------------
'pre : Il invoerparam deve essere nota;
'post: La funzione ottiene il valore di S(n,p), A(n,p), con(n,p) di un(n,p).
'mogelijke fout : Err.Number = 6 -> overflow
'-------------------------------------------
LvvVar Dim As Variant
    ((1 + (evvPercentage / 100)) ^ EvvPerioden) '= S(n,p)
    Se EVVA Poi lvvVar = 1 / lvvVar '= A(n,p)
    Se evvRecursie And Not (evvPerioden = 0) Then 'beperking voor recursie
        gfvGetValueIntrestTables = CDec(lvvVar + gfvGetValueIntrestTables(evvPercentage, evvPerioden - 1, EVVA, evvRecursie)) '= s(n,p) di un(n,p)
    ElseIf evvRecursie = False Then
        (lvvVar)
    End If

Download

Licenza

Codice cade sotto pubblico dominio.

Articoli correlati

Categoria: Evidenziato, ETC & Excel
Tags: , , , , , , , ,

Commenti (1)

  • 10-05-2012 om 18:40 door JUAN ANDALUZ

    MUCHAS GRACIAS POR TODO SON DE MUCHA AYUDA

Invia il tuo commento

  • RSS
  • LinkedIn
  • Twitter