Calcul d’arrondis
Comment arrondir des calculs dans une requête (dans un formulaire ou un état aussi, d’ailleurs !) ?
Depuis Access 2000
Depuis Access 2000, une fonction nommée Round()
est désormais intégrée à Access. Elle s’écrit :
.
Round(expression_à_arrondir; nombre_de_décimales)
Pour utiliser cette fonction :
Dans une requête,si vous souhaitez par exemple calculer un arrondi sur le TTC, définissez le champ calculé suivant : | TTC: Round(HT * 1.196; 2) |
Dans un formulaire ou un état, créez une zone de texte et tapez : | =Round(HT * 1.196; 2) |
Dans du code VB, tapez : | x = Round(HT * 1.196, 2) |
Avant Access 2000
Avant Access 2000, il n’existait pas de fonction dédiée au calcul des arrondis. En voici une qui peut faire l’affaire :
1 2 3 4 5 6 7 8 9 10 11 12 13 |
' --- ' 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 |
- Recopiez la fonction dans un module standard de votre base de données Access 97.
- Utilisez-la de la même manière que dans les exemples ci-dessus, en remplaçant simplement le mot
Round
par le motArrondi
.