rnd

 

Kroc 19/02/2009 : Une petite variation de round (voir expr) pour arrondir $V en conservant exactement $N décimales :

 proc rnd {V N} {
     set M 1[string repeat 0 $N].0
     return [format %0.${N}f [expr {round($V*$M)/$M}]]
 }

Exemples d'utilisation :

 % rnd 74.705 0
 75
 % rnd 74.705 1
 74.7
 % rnd 74.705 2
 74.71
 % rnd 74.705 3
 74.705
 % rnd 74.705 4
 74.7050