Arrondi ....

Signaler
Messages postés
13
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
14 décembre 2002
-
Messages postés
60
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2007
-
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

2 réponses

Messages postés
13
Date d'inscription
dimanche 29 septembre 2002
Statut
Membre
Dernière intervention
14 décembre 2002

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)
0
Messages postés
60
Date d'inscription
lundi 21 octobre 2002
Statut
Membre
Dernière intervention
7 octobre 2007

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
0