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
-------------------------------
Réponse au message :
-------------------------------
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)
-------------------------------
Réponse au message :
-------------------------------
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