Discussion :

[ecobarito]

Bonjour, suite à de longue recherche sur le net et dans mon aide parmi les fonctions matheuses disponibles ... ben je n'ai pas trouver d'équivalent delphi de la fonction
VC d'excell : calcule la valeur future d'un investissement fondé sur des paiements réguliers et constants, et un taux d'interets stable.

Voilà si quelqu'un pourrais me mettre sur la voie ...
merci d'avance .

Ecobarito.

[Qwazerty]

SAlut
Je ne connais pas une telle fonction(faut dire que j'ai jamais cherché dans cette direction ) mais bon visiblement c'est un calcul assez "simple" a toi de te faire ta propre fonction
http://www.sicavonline.fr/index.cfm?...leuractualisee
Je dors a moitier mais ca doit pas etre bien sorcié
[Edit]
Ca fait mal a la tete
http://xibios.free.fr/english/doc/xq...financial.html
(-paiement * (1 + taux * type) * ((1 + taux)^(durée) - 1) / taux) - (valeur_résiduelle * (1 + taux)^(durée))
voila ce que fait excel exactement
[/Edit]
++
Qwaz

[Qwazerty]

Re
Et pan presque du 1er coup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
Var Paiement, Taux, Valeur : Single;
    TypeEcheance : Byte;
    Duree : Integer;
begin
//(-paiement * (1 + taux * type) * ((1 + taux)^(durée) - 1) / taux) - (valeur_résiduelle * (1 + taux)^(durée))
    Paiement := StrToFloat(EdPaie.Text);
    Taux := StrToFloat(EdTaux.Text);
    Valeur := StrToFloat(EdValeur.Text);
    TypeEcheance := StrToInt(EdType.Text);
    duree := StrToInt(EdDuree.Text);
Edit1.Text := FloatToStr((-paiement * (1 + taux * TypeEcheance) * (power(1 + taux,duree) - 1) / taux) - (valeur * power(1 + taux,duree)));
 
end;

Abracadabrouile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function TForm1.ValCapital(Taux : Single; Duree : Integer; paiement : Single; Valeur : Single = 0; EcheanceDebutPeriod : Boolean = False): Single;
Var TypeEcheance  : Byte;
Begin
     If EcheanceDebutPeriod Then TypeEcheance := 1 Else TypeEcheance := 0;
     Result := (-paiement * (1 + taux * TypeEcheance) * (power(1 + taux,duree) - 1) / taux) - (valeur * power(1 + taux,duree));
 
End;
 
// et pour l'utilisation
Edit1.Text := FloatTostr(ValCapital(0.04,10,1200));

Et normalement c'est maintenant que quelqu'un vient sur le post et pose un message style "baaa fallait juste utiliser VCDelphi(0.04,10,1200)
++
Qwaz

[ecobarito]

ben merci lol ca au moins c'est de la résolution rapide
merciii bien encore une fois

[OutOfRange]

Salut

Et normalement c'est maintenant que quelqu'un vient sur le post et pose un message style "baaa fallait juste utiliser VCDelphi(0.04,10,1200)

BINGO

Extrait de l'aide D6...

FutureValue, fonction

Calcule la valeur future d'un investissement.

Unité

Math

Catégorie

routines financières et de gestion

function FutureValue(const Rate: Extended; NPeriods: Integer; const Payment, PresentValue: Extended; PaymentTime: TPaymentTime): Extended;

Description

FutureValue renvoie la valeur future d'un investissement de PresentValue où Payment est investi pendant NPeriods au taux de Rate par période. Le paramètre PaymentTime indique si l'investissement est une annuité ordinaire ou une annuité à échéance (entrez ptEndOfPeriod si les règlements se font à la fin des périodes et ptStartOfPeriod s'ils se font au début).

[Qwazerty]

c pô juste :'(

[ecobarito]

heumm z'allez me prendre pr un "noob" mais heu pour la fonction futurevalue delphi me renvoi une pitite erreur ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

epargnep1.Text := futurevalue (percent1/12,dureeperiode1,somp1,0,ptstartofperiod);

et voici l'erreur ... qui vient lorsque que j'ajoute la periode "ptstartofvalue".
[DCC Erreur] concept30.pas(569): E2010 Types incompatibles : 'string' et 'Extended'