Discussion :

[samirmember]

Bonjour a tous,
Je développe sous delphi 5 et je calcul des montants de factures.
Lors de l'utilisation de la fonction FormatFloat d'un nombre par exemple 59,99883 la fonction FormatFloat me renvoi 60,00.
Comment utiliser cette fonction pour avoir un résultat avec deux chiffre après la virgule sans arrondir le chiffre (59,99)???

Merci d'avance.

[Archimède]

Vas faire un tour sur les remèdes de notre bon Dr Who

[Invité1]

bonjour
essaies avec ça

Code :

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

1
2
3
 
 
nb:= (int(59.99883*100))/100;

59.99883 * 100 = 5999.883
int(5999.883) = 5999
5999 / 100 = 59.99

bonne journée

[Dr.Who]

pense à utiliser le format currency.

et avec la fonction Format %.2f il n'y aura pas d'arrondi mais la valeur sera tronquée.

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  V : currency;
  S : string;
begin
  V := 59.998567
  S := format('%.2f', [V]);
  { ... }
end;

[samirmember]

Merci pour vos réponses, mais:
sois disant, j'ai un nombre 21650.85. Lorsque j'applique a ce nombre

Code :

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

nb:= (int(21650.85*100))/100;

le résultat affiché est : 21650.84
Et lorsque j'applique le format currency avec %.2f pour 21650.85/100 le résultat affiché est 216.51.
Est ce qu'il ya une solution pour ceci?

Merci

[samirmember]

Vas faire un tour sur les remèdes de notre bon Dr Who

???????????

[Dr.Who]

aprés vérification, %.2f, %.2n et %.2m arrondissent la valeur.

%.2m permet d'afficher les valeurs monétaire.

pour ne pas arrondir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
uses Math;
 
{ ... }
 
// au plus bas
S := format('%.2f',[floor(15.1 * 6.55957 * 100)*0.01]);
// affiche 99.04
 
// au plus haut
S  := format('%.2f',[ceil(15.1 * 6.55957 * 100)*0.01]);
// affiche 99.05

[samirmember]

Merci beaucoup Dr. Who, mais:
ça arrondi toujours mes valeurs, sois au plus haut, sois au plus bas. Je crois que je devrais penser que c'est la seul solution, et qu'on ne peut pas afficher que deux chiffre après la virgule sans arrondissement.

[Archimède]

pour la fonction format, le remède... (C'était une boutade...)

http://deefaze.ftp-developpez.com/de...ion-format.pdf

[Rayek]

Serait il possible que tu montres le bout de code que tu utilises pour le formatage de ta valeur avec FormatFloat, le problème vient peut être du format que tu as défini

[Charly910]

Bonjour SamirMember

tu dois avoir un autre problème, car j'ai essayé avec la fonction Trunc ou la fonction floor et cela fonctionne parfaitement :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Btn_ArrondiClick(Sender: TObject);
Var
   Nb1, Nb2 : Extended ;
begin
   nb1 := StrToFloat(E_Val1.Text) ;
//   nb2 := trunc(nb1*100)/100 ;
   nb2 := floor(nb1*100)/100 ;
   E_Val2.Text := FloatToStr(nb2) ;
end;

par exemple :

56,7845 ==> 56,78
56,99999999 ==> 56,99
45,00000 ==> 45,00

@+
Charly