Discussion :

[LuckyLuke56]

Bjr à tous,
Plusieurs champs édit reçoivent les résultats de calculs en float.
Je ne souhaite que 2 décimales dans ces champs.
Voici le bout de code pour le formatage d'un champ:
Edit43.Text:=FloatToStr(MaintMonoTotalGeneralHTVA);
FormatFloat('#0,##', MaintMonoTotalGeneralHTVA);
Malgré cela, les champs contiennent toujours beaucoup de chiffres après la virgule!
SysUtils est bien déclaré en Uses
Que se passe-t-il donc? Je ne suis pas un pro bien sûr!
N'ai rien trouvé dans le forum pour m'éclairer.

Merci

[Andnotor]

La "," est le séparateur des milliers. Le "." est pour les décimales

Code :

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

FormatFloat('#,##0.00', MaintMonoTotalGeneralHTVA);

[LuckyLuke56]

J'avais trouvé cette petite subtilité dans le forum mais cela ne doit pas être cela car même en changeant le résultat n'est pas correct.
N'oublierais-je pas une déclaration quelconque? Bien que je n'ai pas d'erreur à la compilation!

Merci

[Andnotor]

C'est pourtant la fonction à utiliser.
Maintenant FormatFloat ne va pas tronquer MaintMonoTotalGeneralHTVA, mais renvoyer une chaîne mise en forme.

Code :

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

Edit43.Text := FormatFloat('#,##0.00', MaintMonoTotalGeneralHTVA);

Pour arrondir la valeur à deux décimales:

Code :

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

MaintMonoTotalGeneralHTVA := Round(MaintMonoTotalGeneralHTVA *100) /100;

ou

Code :

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

1
2
3
4
5
uses Math;
 
MaintMonoTotalGeneralHTVA := RoundTo(MaintMonoTotalGeneralHTVA, -2);
//ou
MaintMonoTotalGeneralHTVA := SimpleRoundTo(MaintMonoTotalGeneralHTVA);

[LuckyLuke56]

Bizarre bizarre,
Rien ne réagit comme souhaité.
RoundTo et SimpleRoundTo ne sont pas reconnus en delphi4 mais Round oui.
Math est bien déclaré mais...
Faut que je cherche il doit y avoir une subtilité qui m'échappe.
Merci tout de même.

[Jipété]

Yop !

Quand je fais simplement

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  MaintMonoTotalGeneralHTVA: extended;
begin
  MaintMonoTotalGeneralHTVA := 987654321 / 100000; // = 9876,54321
  Edit1.Text := FormatFloat('#,##0.00', MaintMonoTotalGeneralHTVA);
end;

ça m'affiche impeccablement 9 876,54. Ça semble tout bon, non ?

[LuckyLuke56]

Merci à tous,
Ton insistance Jipété m'a interpellé et permis de trouver ce qu'il manquait... l'affectation du format n'était donnée à rien! Il manquait Edit43.Text
Mille merci

[e-ric]

Bonsoir

Suite à une petite investigation personnelle récent au sujet de RoundTo, il s'agit d'un appel à une routine du coprocesseur arithmétique qui ne donne pas toujours les résultats attendus. Ceci avec la virgule flottante, c'est possible.

Cdlt