ARRONDIR UN CHIFFRE A X CHIFFRES APRÈS LA VIRGULE

cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 20 déc. 2004 à 12:46
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 20 déc. 2004 à 12:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11649-arrondir-un-chiffre-a-x-chiffres-apres-la-virgule

cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
20 déc. 2004 à 12:46
Le Turbo Pascal a créé Str. Le code suivant réduit à 4 chiffres après la virgule. Il me semble qu'une valeur entière est supportée.

var Valeur : extended
s : string;
begin
Str(Valeur:0:4,s);
if Pos('.',s)>0 then
s[Pos('.',s)]:=',';
end;