Arrondi ....

Question

Comment faire un arrondi d'une valeur (genre 8,25 ou 12,98) toujours a l'entier le plus bas (ici 8 et 12).

Quand je met a 'integer' j'obtiens un arrondi a la valeur la plus proche (ici 8 et 13)


' J'ai un nombre récupéré par mon prog qui correspond a: 
' Val1 est compris entre 0 et 23 
' Val2 est compris entre 0 et 7
' ValOrigine = (Val1 * 8) + Val2

'Je doit re-décomposer la valeur reçue pour en retrouver le résultat de Val1 et Val2

Dim Val1 as Integer 
Dim Val2 as Integer
Dim ValOrigine as Integer
Val1 = (ValOrigine / 8)
Val2 = ValOrigine - (Val2 * 8)



Merci

JsOpdebeeck · Answer

Travailler avec et seulement ensuite la forcer en Int(val1)

Val1 as Integer 
Val2 as Integer

Dim ValOrigine as Integer
Val1 = Int(ValOrigine / 8)
Val2 = ValOrigine - Int(Val2 * 8)

FirSteph · Answer

Il y egalement une autre maniere si tui le souhaite:

Val3 = Round(Val1,0)
Val4 = Round(Val2,0)

If Val3 > Val1 Then Val1 = Val3 - 1
If Val4 > Val2 Then Val2 = Val4 - 1

Voila je pense que ca devrais marcher. Bon prog ;)

@ Bientot

FirSteph

Arrondi ....

2 réponses

Discussions similaires