Bonsoir a tous, je cherche quelqu'un d'assez doué(du moins plus que moi) en Visual Basic pour réussir a créer une fonction à partir de ce texte :
je souhaite placer une somme N (par exemple 1000euros), sur un compte et je voudrais savoir au bout de combien de temps j'atteindrais un nouveau capital D (par exemple 5000euros)avec un taux d'intérêt annuel T (par exemple 2,5% par an).
Les arguments sont donc capital initial, taux d'intérêt et capital nouveau
Merci de votre aide
C'est un probleme de math, pas de VB.
Soit N_k la somme apres k annee. N_k = (1+T)^k*N_0.
Donc tu aura un capital D apres D = (1+T)^k*N_0. soit (1+T)^k = D/N_0. En passant au logarithme : k = log_(1+T) (D/N_0)
je dois créer une fonction en visual basic mais je suis débutant dans ce logiciel
merci beaucoup de ta réponse je vais essayer ça, le temps que j'alligne bien tous les DIM et UNTIL ....
Je n'arrive pas à écrire la fonction malheureusement avec la méthode que tu m'a donné.
A titre d'exemple voilà ce que nous avons déjà fait :
FUNCTION NouveauCapital (capital, taux, durée)
DIM compteur, résultat
résultat = capital
FOR compteur = 1 TO durée
résultat = résultat * taux + résultat
NEXT compteur
NouveauCapital = résultat
END FUNCTION
Cette fonction sert à calculer le nouveau capital au bout de N années à partir d'un capital de départ et d'un taux d'intérêt donné.
@CoD-Scarface, voici un exemple. Fait-toi un formulaire avec:
Form1
Label1
Label2
Label3
Label4
TextBox1
TextBox2
TextBox3
Button1
Public Class Form1
Private mAnnee As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label2.Text = "somme de départ"
Label3.Text = "pourcentage"
Label4.Text = "Résultats Souhaité"
TextBox1.Text = 1000 'argent
TextBox2.Text = 1.05 'pourcentage
TextBox3.Text = 1500 'résultats finals
mAnnee = 0
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
mAnnee = 0
Do
mAnnee = mAnnee + 1
TextBox1.Text = TextBox1.Text * TextBox2.Text
Loop Until TextBox1.Text >= TextBox3.Text
Label1.Text = TextBox1.Text & " atteind en " & mAnnee & " Année(s)"
End Sub
End Class
Peut-être que je vais mettre cette réponse sur mon blog pour pouvoir afficher le code en couleur avec les tabulations.
Comme disait Godrik, c'est un problème mathématique ou économique à prime à bord. Moi, j'ai juste fait travaillé la machine
http://checktechno-fr.blogspot.com/2012/11/fonction-visual-basic.html