arrondir a la centaine superieure/inferieure

Bonjour,

Pour arrondir à la centaine (ou au millier) supérieur c'est facile, tu
prends la partie entière de la division par 100 (ou par 1000), tu ajoutes 1,
et tu remultiplies par 100 (ou par 1000).
Par la cinquantaine (ou 500taine), tu fais de la même manière mais tu testes
si la partie décimale est supérieur à 50 (ou 500) et ca conditionnera
l'ajout du +1 avec la remultiplication ou de l'ajout de 50 (ou de 500) après
la remultiplication.

Arnaud

"tomyboy" <mrossier@mscgva.ch> a écrit dans le message news:
73fd944a.0412010621.6a78e414@posting.google.com...

Bjr,
Comment faire pour arrondir un nombre entier ou double
(dans requete ou rapport)
- a la cinquantaine superieure (28236 > arrondir a 28250)
- a la centaine superieure (28236 > arrondi a 28300)
- a la 500taine superieure (28236 > arrondi a 28500)
- au 1000 superieur (28236 > arrondi a 29000)

avec Access2002 / SP2
Mci a tous

"tomyboy" a écrit:

Bjr,
Comment faire pour arrondir un nombre entier ou double
(dans requete ou rapport)
- a la cinquantaine superieure (28236 > arrondir a 28250)
- a la centaine superieure (28236 > arrondi a 28300)
- a la 500taine superieure (28236 > arrondi a 28500)
- au 1000 superieur (28236 > arrondi a 29000)
avec Access2002 / SP2
Mci a tous

Bonjour, TomyBoy

Public Function ArrondirXaineSup(Nombre as Variant _
, Xaine as Long) as Long
Dim Multiple as Long
Multiple = 0
If IsNumeric(Nombre) Then
Multiple = Nombre Xaine ' Division entière
' Pour les nombres positifs, on regarde le reste
' de la division entière
If Nombre > 0 And (Nombre Mod Xaine) <> 0 Then
Multiple = Multiple + 1
End If
End If
ArrondirXaineSup = Multiple * Xaine
End Function

Bonne continuation

Bonjour,

Essaye avec les fonctions suivantes
Function arrondiprox(valeur, pas)
arrondiprox = Int(valeur / pas + 0.5) * pas
End Function

Function arrondiinf(valeur, pas)
arrondiinf = Int(valeur / pas) * pas
End Function

Function arrondisup(valeur, pas)
arrondisup = -Int(-valeur / pas) * pas
End Function

Gilbert

"tomyboy" <mrossier@mscgva.ch> a écrit dans le message de
news:73fd944a.0412010621.6a78e414@posting.google.com...

Bjr,
Comment faire pour arrondir un nombre entier ou double
(dans requete ou rapport)
- a la cinquantaine superieure (28236 > arrondir a 28250)
- a la centaine superieure (28236 > arrondi a 28300)
- a la 500taine superieure (28236 > arrondi a 28500)
- au 1000 superieur (28236 > arrondi a 29000)

avec Access2002 / SP2
Mci a tous