Calcul de mensualité

Description

Pour calculer une mensualité, Choisir une durée, vérifier un pourcentage ou définir le montant d'un crédit. Tout ce fait à la souris : j'ai utilisé 3 "NumericUpDown" et un "Timer" pour faire les calculs.
Il y a aussi une mise en forme en mumérique avec centimes et séparateur milliers pour la mensualité et les équivalences en Francs.

Source / Exemple :


Public Class Form1
    '"Mois" représente le calcul de la mensualité
    'les trois NumericUpDown sont : Capital, Dure, Taux
    'le résultat est afficher dans un TextBox : Mens

        Dim Mois As Double
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        
        Mois = Pmt((taux.Value / 100) / 12, (Dure.Value) * 12, -(Capital.Value), 0, DueDate.EndOfPeriod)
        Mens.Text = FormatNumber(Val(Mois), -1, 0, 0)
        CapFrancs.Text = FormatNumber((Capital.Value * 6.55957), -1, 0, 0) ' 
        MensFrancs.Text = FormatNumber(Val((Mens.Text) * 6.55957), -1, 0, 0)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

End Class

Conclusion :


Fait en Visual Basic 2005 Express
Nécessite Framework.2

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.