tronquer un doubleRésolu

Question

Bonjour a tous

Je voudrais tronquer un double ex 5 chiffres après la virgule mais je ne veux pas l'arrondir.
ex .99999999999999999999 = .99999

Merci de transmettre vous connaissance
lvl<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

cs_rt15 · Accepted Answer

Salut,

Tu peux multiplier ta valeur par 100000, truncater, puis diviser par 100000.
Attention au dépassement.

hvb · Answer

tronquer pour l'affichage? Ou pour le manipuler?
Si c'est pour l'affichage... : 

Private function trunc(byval a as double) as string
   return a.tostring.substr(0,a.indexOf(".")+5))
End function

Et tu dois pouvoir faire un Ctype(res,Double) pour le récuperer en Double.

Hvb a.k.a Batto 
http://batto.info/ ^^x
bato.ltd .at. gmail.com

hvb · Answer

où res est bien entendu le resultat de la fonction que je t'ai filé (non testée, car ecrite en live ^^)

Et quand j'y pense, ma fonction ne verifie pas qu'il y a + de 5 chiffres apres le ".", il faut penser à l'ajouter.

Hvb a.k.a Batto 
http://batto.info/ ^^x
bato.ltd .at. gmail.com

cs_lvl · Answer

malheureusement j'ai besoin de m'en reservir pour d'autre calcul alors il faut qu'il reste en double.

merci 
lvl

hvb · Answer

bah comme je l'ai dit en dessous, fais le traitement de troncature sur le string, puis reconverti le en double.
C'est certe pas hyper logique, mais comme ça, je vois que ça (vu que tu ne veux pas arrondir)

Private function trunc(byval a as double,byval Nbapresvirgule as Integer) as Double
   dim tmp as string
 if a.tostring.indexOf(".")>=0 then
    if a.tostring.length>(a.tostring.indexOf(".")+Nbapresvirgule) then
         tmp=a.tostring.substr(0,a.indexOf(".")+Nbapresvirgule))
         a=Ctype(tmp,Double) 'ou Cdbl(tmp)
     end if
end if
return a
End function

Hvb a.k.a Batto 
http://batto.info/ ^^x
bato.ltd .at. gmail.com

cs_lvl · Answer

Un gros merci  a vous deux pour vos explications,  je regarde ca de plus proche, je vais voir si ca fonctionne car je suis en vb 2005.

Bonne continuité
lvl

Tronquer un double

6 réponses

Votre réponse

Discussions similaires