Valeur en pourcentage

Bonsoir
SVP je suis sur une application de gestion et là, je bloque sur l'affichage d'un résultat calculant un pourcentage ?
le code :

Code:

---

1 2 3 4 5 6 7 8 9

var Actions, CSocial, Resultats : real; Begin Actions := strtofloat (Actions.text); Csocial := strtofloat(Csoacial.text); resultat := (actions / Csocial) *100; la suite j l'ignore svp aidez moi merci d'avance dbedit3.text := floattostr (resultat);

---

Bonjour,

Je vais lever plusieurs objections à votre code , car vous ne gérez pas les possibilités d'erreurs de saisie .
La version de Delphi aurait été un plus , StrToFloatDef (unité sysutils en ce qui concerne D7)
que je vais utiliser dans un premier temps, ne sera peut être pas disponible

Code:

---

1 2 3 4 5 6 7 8 9 10

var Actions, CSocial, Resultats : real; Begin Actions := strtofloatdef (Actions.text,0.00); Csocial := strtofloatdef(Csocial.text,0.00); try resultat := (actions / Csocial) *100; except resultat:=0.00; end;

---

pas de strtofloat dans votre version ? utilisez un bloc try except

Code:

---

1 2 3 4 5 6 7

try Actions:=StrToFloat(actions.text) except actions:=0.00 end; try CSocial:=Strtofloat(Csocial.text) except Showmessage('CSocial ne peut être a 0'); CSocial.SetFocus; exit; end;

---

un mix des deux solutions pourrait être un bon compromis (en cause la valeur de CSocial)
passons au résultat

Code:

---

1 2	label.caption:=format('%3.2f %',[resultat]);

---

on peut également utiliser

Code:

---

1 2	label.caption:=FormatFloat('#0.00 %',resultat); label.caption:=floattostrf(resultat,ffFixed,8,2)+' %';

---

maintenant , je vois qu'il s'agit d'un DBEDit dans ce cas, normalement, il ne faut pas "jouer" sur la propriété Text mais sur la valeur du champ
(c'est pour cela que j'ai mis label.caption plutôt que DBEdit3.text) , En admettant que l'ensemble de données soit en mode édition , on fera
<nomtable>.fieldbyname('<champ>').asFloat:=resultat;

Bonjour
je vous remercie bien vivement pour votre réponse, vous me sauver.
une précision svp,

ce code dans quel événement ou dois-je l’insérer:

Code:

---

1 2 3 4 5 6 7 8 9

var Actions, CSocial, Resultats : real; Begin Actions := strtofloatdef (Actions.text,0.00); Csocial := strtofloatdef(Csocial.text,0.00); try resultat := (actions / Csocial) *100; except resultat:=0.00;

---

le code final que j'ai repris

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var Actions, Csocial, : real; Prixsocial : real; Rdiv : real; Rfinal : real; begin valeurAction := strtoint(Form1.Actions.Text); Prixsocial := strtofloat(Form1.Csocial.Text); Rdiv := (ValeurAction / Prixsocial); Rfinal := Rdiv * 1000; taux.Text := floattostrf(Rfinal, ffFixed,8,2)+' %';

---

exemple :
(13699 / 229583000)*1000) me donnerais [60%]
sauf que le résultat s'affiche avec virgule, [0,60%]
comment pouvoir corriger cela SVP.
en dernier SVP j'utilise une dbedit base données (ACCESS 2007 )
merci pour votre compréhension

Citation:

---

Envoyé par kesmus

ce code dans quel événement ou dois-je l’insérer:

---

je n'ai fait que reprendre votre code , je n'en ai donc aucune idée

Citation:

---

le code final que j'ai repris

---

merci de bien utiliser les balises pour marquer les codes (bouton #) , c'est plus simple et plus lisible

Citation:

---

(13699 / 229583000)*1000) me donnerais [60%]
sauf que le résultat s'affiche avec virgule, [0,60%]

---

alors là , je me demande comment vous arrivez a 60% , il s'agit bien de 0.60% pour être précis 0.5966 % , sauf que en plus vous ne demandez pas des pourcentages (* par 100 et non 1000) mais des millièmes avec le calcul donné en exemple ! revoyez votre exemple !

je remarque également au niveau de ce code que vous persistez à ne pas contrôler les deux valeurs , ce qui est de mon point de vue une erreur.

Citation:

---

en dernier SVP j'utilise une dbedit base données (ACCESS 2007 )

---

Que ce soit ACCES ou une autre BDD ne change rien au bout de code (et à la question posée au départ)
Si vous voulez un tant soit plus d'aide , il faut :
- montrer ce que vous avez codé , et ce par un bon copier-coller , plutôt qu'une copie approximative
- indiquer votre problème précisément