salut tt le monde,
j'ai besoin de résoudre une équation pour trouver le taux de rendemnt actuariel voila le code que j 'ai utilisé sur vb6 mais l'appel de la fonction ne fonctionne pas

Fonction

 

Dim ValPres As Double

Dim ValPresDerivee As Double

Dim v As Double

Dim ErreurMaximale As Double

 

Function NewtonRaphson(CashFlow() As Double, i As Double) As Double

 

ErreurMaximale = 0.0000001

ValPres = 1

While Abs(ValPres) > ErreurMaximale

 ValPres = 0

 ValPresDerivee = 0

 v = 1 / (1 + i)

   For t = LBound(CashFlow(), 1) To UBound(CashFlow(), 1)

      ValPres = ValPres + CashFlow(t) * v ^ t

      ValPresDerivee = ValPresDerivee - t * CashFlow(t) * v ^ (t + 1)

   Next t

  i = i - ValPres / ValPresDerivee

Wend

NewtonRaphson = i

End Function

 

 

Appel

 

n = DTPicker3.Year - DTPicker1.Year

For j = 1 To n - 1

  CashFlow(j) = Val(tx_facial.Text) * nominal.Text

  Next j

CashFlow(n) = Val(tx_facial.Text) * nominal.Text + nominal.Text

rdt.Text = NewtonRaphson(CashFlow(j), i, prix.Text)


merci

C'est pas étonnant...

Function NewtonRaphson(CashFlow() As Double, i As Double) As Double
rdt.Text = NewtonRaphson(CashFlow(j), i, prix.Text)

Lorsque tu appelles ta fonction, tu dois lui passer un tableau de Double puis un Double.
Mais dans ton code, tu lui passes 2 Double et un String...

sans doute vaudrait-il mieux écrire rdt.Text = NewtonRaphson(CashFlow, i)
Essaie déjà comme ça...

salut, j'ai mis ce que vous m'avez proposé mais ca ne marche pas encore ,il me donne erreur de compilation function non définie.

Salut;
À quelle ligne se produit l'erreur?

salut
l'erreur se produit à cette ligne
 

rdt.Text = NewtonRaphson(CashFlow(j), i, prix.Text)

merci bcp pour votre aide

Manque la déclaration du CashFlow(), déjà répondu, mais pas à Sofy2006, à Carpe_Diem,
merci de lire les réponses, voire d'y répondre!

rvblog^{n
Je veux ton bien... et je l'aurais... mais jamais avant la page 4}