<Retour Grenier>

Début de page Question

Comment arrondir des calculs dans une requête (dans un formulaire ou un état aussi, d'ailleurs !) ?

 

Début de page Réponse

Tapez la fonction suivante dans un module Access :

' --------------------------------------------------
' ARRONDI D'UN NOMBRE
' --------------------------------------------------
' Entrée : dbNombre <- Le nombre à arrondir
' intDigits <- Le nombre de chiffres après la virgule
'
Function Arrondi(dbNombre As Double, intDigits) As Double
Dim lngPow As Long, dbTemp as double

lngPow = 10 ^ intDigits
dbTemp = dbNombre * lngPow + 0.5
Arrondi = Int(dbTemp) / lngPow
End Function

Comment utiliser cette fonction de calcul ?

Dans une requête,si vous souhaitez par exemple calculer un arrondi sur le TTC, définissez le champ calculé suivant : 
TTC:Arrondi(HT * 1.206; 2)
 
Dans un formulaire ou un état, créez une zone de texte et tapez : 
=Arrondi(HT * 1.206; 2)
 
Dans du code VB, tapez : 
x = Arrondi(HT * 1.206, 2)

Vous trouverez un exemple d'utilisation dans les calculs sur l'Euro.