arrondiRésolu

Question

bonjour,
j'aurais voulu savoir comment, en VB6, on peut forcer l'arrondie à la valeur supérieur, et de meme l'arrondie à la valeur inférieur.

dans des cas, je voudrais que 2.3 soir arrondi a 3 et dans d'autre que 2,8 soit arrondie à 2, mais de base, VB arrondie à l'entier le plus proche :/

Final Fantasy Memories Venez découvrir les origines d'une saga

DiJiTooL · Accepted Answer

Une technique plus rapide:



Dim Chiffre as Val
Dim ArondiUn As Val
Dim ArondiZero As Val
Dim ArondiExce As Val

ArondiUn = Round(CHiffre, 1)  
ArondiZero = Round(CHiffre, 0) 

If ArondiUn > ArondiZero Then
ArondiExce = ArondiZero + 1 
Else
ArondiExce = ArondiZero
End If

alicvb · Answer

Pour arrondir à la valeur inférieure, utilise :
Arrondi=Int(val)
Attention,il prend la partie entière. donc, si tu veux effectuer cet arrondi sur des décimaux, tu doit ruser :
arrondi = Int(val*(10^précision))/(10^précision)

Pour arrondir à l'entier supérieur rajoute la ligne :
if arrondi<>val then arrondi=arrondi+1

J'espère que c'est ce que tu vaoulais...

AlicVB

Thanos_the_yopper · Answer

je vais essayer de m'en sortir avec ca, merci ^___^
ca correspond a quoi "précision" ?

Final Fantasy Memories Venez découvrir les origines d'une saga

alicvb · Answer

precision, c'est si tu veux arrondir en gardant des décimales

si val=2.384 et precision=2 tu obtiens 2.38 (en arrondissant en dessous)

si tu n'as pas besoin des décimales, oublie la ligne qui parle de précision...

cs_frefre · Answer

Est-il possible d'avoir tous cela sans passé par un if then else +1
car j'aimerais intégré cela dans un query.

Je pense qu'il existe une fonction qui donne l'arrondi supérieur
d'un nombre en vb6, mais je ne me rappelle plus comment faire...

Arrondi

5 réponses

Discussions similaires