Arrondi

bonjour Don-Ludo,

MsgBox Int(nombre / 10 + 1) * 10

cordialement

Don-Ludo avait énoncé :

Bonjour,

En VB, je cherche à toujours faire un arrondi à la dizaine supérieure?

Merci par avance.

Don Ludo

pour le cas ou le nombre serait un multiple de 10, ce qui renverrait un
résultat non conforme à ce que tu attends :

Sub ArrSupp()
NbArrondi = IIf(nombre Mod 10 = 0, nombre, Int(nombre / 10 + 1) * 10)
MsgBox NbArrondi
End Sub

cordialement

Le 10/08/2006, MonOnc' a supposé :

bonjour Don-Ludo,

MsgBox Int(nombre / 10 + 1) * 10

cordialement

Don-Ludo avait énoncé :

Bonjour,

En VB, je cherche à toujours faire un arrondi à la dizaine supérieure?

Merci par avance.

Don Ludo

Salut,

Une autre solution :
MsgBox -10 * Int(-nombre / 10)


A+
Nicolas B.

Bonjour,

En VB, je cherche à toujours faire un arrondi à la dizaine supérieure?

Merci par avance.

Don Ludo