Langage :
VBA
Date ajout :
02/12/2007
Posté par
us_30
[
Liste]
DateMAJ :
10/11/2008
Public Enum ctArrondi
ParDefaut = -1
AuPlusPres
ParExces
End Enum
Function Arrondir(ByVal Nb As Double, ByVal Multiple As Double, Optional ByVal Sens As ctArrondi = AuPlusPres) As Double
Arrondir = IIf(Nb = Int(Nb / Multiple) * Multiple, Nb, Int(Nb / Multiple + (Sens + 1) / 2) * Multiple)
End Function
Remarque :
Cette fonction permet aussi d'arrondir à un multiple donnée, soit par défaut, au plus près ou par excès.
Exemple :
Arrondir(134.564,0.01) => 135.56 : arrondi classique
Arrondir(134.564,10,1) => 140 : arrondi par excès à un multiple de 10
La précision de l'arrondi est assurée jusqu'à 12 décimales.