Erreur de convertion de double en tostring
kouka34
Messages postés
48
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
svp je suis débutante en vb.net je crée un mini projet pour le calcul d'un amortissement de crédit
et j'ai le code suivant:
j'ai créer une fonction pour le calcul d'un montant d'echeance
_________________________________________________________
Function calculMontant_ech(ByVal c As Double)
montant = Double.Parse(montcredit.Text)
amortissement = Double.Parse(boite_amorti.Text)
taux_inetr = Double.Parse(boite_taux.Text)
Dim int As Double
Dim mnt As Double
Dim t As Double
t = ((taux_inetr / 100) / 12) + 1
int = montant * ((taux_inetr / 100) / 12)
mnt = 1 - (t ^ -(amortissement))
MontEchéance = int / mnt
c = MontEchéance
Return c
End Function
________________________________
apres je veus que cette valeur s'affiche dans un textbox en form_load
comme suit:
BoîteTauxEffectif.Text = calculMontant_ech(montant).ToString()
et ca me donne une erreur au niveau de type de la variable montant
aidez moi svp!
svp je suis débutante en vb.net je crée un mini projet pour le calcul d'un amortissement de crédit
et j'ai le code suivant:
j'ai créer une fonction pour le calcul d'un montant d'echeance
_________________________________________________________
Function calculMontant_ech(ByVal c As Double)
montant = Double.Parse(montcredit.Text)
amortissement = Double.Parse(boite_amorti.Text)
taux_inetr = Double.Parse(boite_taux.Text)
Dim int As Double
Dim mnt As Double
Dim t As Double
t = ((taux_inetr / 100) / 12) + 1
int = montant * ((taux_inetr / 100) / 12)
mnt = 1 - (t ^ -(amortissement))
MontEchéance = int / mnt
c = MontEchéance
Return c
End Function
________________________________
apres je veus que cette valeur s'affiche dans un textbox en form_load
comme suit:
BoîteTauxEffectif.Text = calculMontant_ech(montant).ToString()
et ca me donne une erreur au niveau de type de la variable montant
aidez moi svp!
A voir également:
- Erreur de convertion de double en tostring
- Double ecran - Guide
- Whatsapp double sim - Guide
- Double driver - Télécharger - Pilotes & Matériel
- Double appel - Guide
- Double authentification google - Guide
6 réponses
Bonjour,
Function calculMontant_ech(ByVal c As Double)
c = 0
Dim montant as double
' TryParse renvoie Faux si la conversion est impossible,
' sinon le conversion est dans la variable montant
If (Double.TryParse(montcredit.Text), montant) Then
Dim amortissement as Double
If (Double.TryParse(boite_amorti.Text), amortissement) Then
Dim taux_inetr as Double
If (Double.TryParse(boite_taux.Text), taux_inetr) then
Dim int As Double
Dim mnt As Double
Dim t As Double
t = ((taux_inetr / 100) / 12) + 1
int = montant * ((taux_inetr / 100) / 12)
mnt = 1 - (t ^ -(amortissement))
' Évite les accents dans le code
MontEcheance = int / mnt
c = MontEcheance
End If
End If
End If
Return c
End Function
K
Function calculMontant_ech(ByVal c As Double)
c = 0
Dim montant as double
' TryParse renvoie Faux si la conversion est impossible,
' sinon le conversion est dans la variable montant
If (Double.TryParse(montcredit.Text), montant) Then
Dim amortissement as Double
If (Double.TryParse(boite_amorti.Text), amortissement) Then
Dim taux_inetr as Double
If (Double.TryParse(boite_taux.Text), taux_inetr) then
Dim int As Double
Dim mnt As Double
Dim t As Double
t = ((taux_inetr / 100) / 12) + 1
int = montant * ((taux_inetr / 100) / 12)
mnt = 1 - (t ^ -(amortissement))
' Évite les accents dans le code
MontEcheance = int / mnt
c = MontEcheance
End If
End If
End If
Return c
End Function
K
Bonjour,
Essaye :
petit tips, n'applique jamais de méthode sur le résultat d'une fonction
ex : f1().m1() INTERDIT PAR LA CONVENTION DE GENEVE !!!
(var.m1().m2() ou var.m1().arg = "kikoo" AUTORISEE)
Cordialement,
0kid0ki
Essaye :
varIntermédiaire = calculMontant_ech(montant)
BoîteTauxEffectif.Text = varIntermédiaire.ToString()
ou varIntermédiaire & ""
petit tips, n'applique jamais de méthode sur le résultat d'une fonction
ex : f1().m1() INTERDIT PAR LA CONVENTION DE GENEVE !!!
(var.m1().m2() ou var.m1().arg = "kikoo" AUTORISEE)
Cordialement,
0kid0ki
merci bcp mais ca n'a pas marché il y'a encore l'erreur
en sachat que j declaré:
Private montant As Double
et dans la fonction:
j'ai fait
montant = Double.Parse(montcredit.Text)
j'ai fait ce que tu m'a dis mais il y'a encore l'erreur au niveau de
montant = Double.Parse(montcredit.Text)
erreur:Input string was not in a correct format.
en sachat que j declaré:
Private montant As Double
et dans la fonction:
j'ai fait
montant = Double.Parse(montcredit.Text)
j'ai fait ce que tu m'a dis mais il y'a encore l'erreur au niveau de
montant = Double.Parse(montcredit.Text)
erreur:Input string was not in a correct format.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Function calculMontant_ech(ByVal c As Double) As Double c = 0 Dim montant As Double ' TryParse renvoie Faux si la conversion est impossible, ' sinon le conversion est dans la variable montant If (Double.TryParse(montcredit.Text), montant) Then Dim amortissement As Double If (Double.TryParse(boite_amorti.Text), amortissement) Then Dim taux_inetr As Double If (Double.TryParse(boite_taux.Text), taux_inetr) Then Dim int As Double Dim mnt As Double Dim t As Double t = ((taux_inetr / 100) / 12) + 1 int = montant * ((taux_inetr / 100) / 12) mnt = 1 - (t ^ -(amortissement)) ' Évite les accents dans le code MontEcheance = int / mnt c = MontEcheance End If End If End If Return c End FunctionNe connaissant pas les aboutissant :
1.) Pourquoi tu passe en paramètre une variable qui est affecte par la ligne :
c = MontEcheance et qui est retournée par la fonction
A-t-elle une valeur de départ ?
J'écrirais plutôt :
Function calculMontant_ech() As Double Dim c As Double = 0 Dim montant As double ' TryParse renvoie Faux si la conversion est impossible, ' sinon le conversion est dans la variable montant If (Double.TryParse(montcredit.Text), montant) Then Dim amortissement As Double If (Double.TryParse(boite_amorti.Text), amortissement) Then Dim taux_inetr As Double If (Double.TryParse(boite_taux.Text), taux_inetr) Then Dim int As Double Dim mnt As Double Dim t As Double t = ((taux_inetr / 100) / 12) + 1 int = montant * ((taux_inetr / 100) / 12) mnt = 1 - (t ^ -(amortissement)) ' Évite les accents dans le code ' Méfie-toi des division par zéro MontEcheance = 0 If (mnt > 0 ) Then MontEcheance = int / mnt End If c = MontEcheance End If End If End If Return c End FunctionK