Discussion :

[bigey3]

salut

tout d'abord j'ai consulter la Faq mais rien.

Voila

Code :

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

showmessage(FormatFloat('0.00',(0.999999229)*100));

j'ai comme résultat: 100,00

j'aimerais plutot un arrondi qui me donnerait 99,99

connaissez-vous d'autre fonction delphi pour ce faire

a+

[banban54]

bonsoir

les fonction delphi 'round et roundto' renvoient l'entier le plus proche
donc pour 0.999999229*100 ça donnera toujours 100.00
sinon sans fonction:

Code :

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

1
2
 
showmessage(FormatFloat('0.00',trunc(0.999999229*10000)/ 100));

devrait être bon!

sinon se pencher du côté de 'FloatToStrF' (voir l'aide)

à plus

[bigey3]

merci bien.

Mais en fait je souhaiterais écrire le résultat dans un fichier
mais cette ligne de code ne marche pas.peux-tu me guider...

Code :

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

writeln(nomfichier,FormatFloat('0.00',trunc(nombre)*10000)/100);

a+

[ero-sennin]

Il te faut faire la convertion en une chaine de caractères ...

Code :

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

writeln(nomfichier,FloatToStr(FormatFloat('0.00',trunc(nombre)*10000)/100));

[edam]

Il te faut faire la convertion en une chaine de caractères ...

Code :

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

writeln(nomfichier,FormatFloat('0.00',trunc(nombre)*10000)/100));

function FormatFloat(const Format: string; Value: Extended): string;
est déjà une string

[ero-sennin]

function FormatFloat(const Format: string; Value: Extended): string;
est déjà une string

Ah le bougre, j'ai même pas pris le temps de vérifier ce que j'écrivais!!
Désolé pour ce message qui induit en erreur alors.

Merci de ta remarque Edam