Comment arrondir un nombre dans VBA au 5 le plus proche? (ou 10 ou X)

Question

Étant donné des nombres comme 499, 73433, 2348, que VBA puis-je utiliser pour arrondir au 5 ou 10 le plus proche? ou un nombre abitrary?

Par 5:

499 -> 500 
2348 -> 2350 
7343 -> 7345 

Par 10:

499 -> 500 
2348 -> 2350 
7343 -> 7340 

etc.

Answer 1

intégré Réponse

X = 1234 'number to round 
N = 5 'rounding factor 
round(X/N)*N 'result is 1235 

Pour virgule flottante en entier, 1234.564-1235, (ce qui est VB spécifique, la plupart des autres langues tronquer simplement) font:

int(1234.564) 'result is 1235 

Attention: VB utilise Bankers Rounding, au plus proche nombre pair, ce qui peut surprendre si vous n'êtes pas au courant il:

msgbox round(1.5) 'result to 2 
msgbox round(2.5) 'yes, result to 2 too 

Merci à tous.

Answer 2

Il est simple de math. Étant donné un nombre X et un facteur d'arrondi N, la formule serait la suivante:

ronde (X/N) * N

Answer 3

Pour arrondir au plus proche X (sans VBA spécifique)

N = X * int (N/X + 0.5)

Où int (...) renvoie le nombre entier inférieur le plus proche.

Si votre fonction d'arrondi disponible arrondit déjà au nombre entierle plus proche, puis omettre l'ajout de 0,5

Answer 4

quelque chose comme ça?

'nearest 
n = 5 
'n = 10 

'value 
v = 496 
'v = 499 
'v = 2348 
'v = 7343 

'mod 
m = (v \ n) * n 

'diff between mod and the val 
i = v-m 


if i >= (n/2) then  
     msgbox m+n 
else 
     msgbox m 
end if 

Answer 5

Simplement ROUND (x/5) * 5 devrait faire le travail.

Answer 6

Je ne peux pas ajouter un commentaire, je vais donc utiliser ce

dans un vbs courir ça et amusez-vous à comprendre pourquoi 2 donnent un résultat de 2

vous ne pouvez pas faire confiance à tour

msgbox round(1.5) 'result to 2 
msgbox round(2.5) 'yes, result to 2 too 

Answer 7

Pour une approche Visual Basic stricte, vous pouvez convertir la valeur à virgule flottante en nombre entier pour arrondir à cet entier. VB est l'un des rares langages qui arrondit sur la conversion de type (la plupart des autres sont simplement tronqués.)

Les multiples de 5 ou x peuvent être simplement divisés avant et après le cycle.

Si vous voulez arrondir et conserver des décimales, Math.round (n, d) fonctionnera.

Answer 8

En VB, math.round possède des arguments supplémentaires pour spécifier le nombre de décimales et la méthode d'arrondi. Math.Round (10.665, 2, MidpointRounding.AwayFromZero) renverra 10.67. Si le nombre est un type de données décimal ou unique, math.round renvoie un type de données décimal. S'il est double, il renvoie le type de données double. Cela pourrait être important si l'option strict est activée.

Le résultat de (10.665) .ToString ("n2") s'éloigne de zéro pour donner "10.67". sans arguments supplémentaires math.round renvoie 10.66, ce qui pourrait conduire à des divergences non désirées.

Answer 9

Essayez cette fonction

-------------- début ----------------

Function Round_Up(ByVal d As Double) As Integer 
    Dim result As Integer 
    result = Math.Round(d) 
    If result >= d Then 
     Round_Up = result 
    Else 
     Round_Up = result + 1 
    End If 
End Function 

------------- fin ------------

Answer 10

'Exemple: Round 499 à 5. Vous utiliserez la fonction ROUND().

a = inputbox("number to be rounded") 
b = inputbox("Round to nearest _______ ") 


    strc = Round(A/B) 
    strd = strc*B 


msgbox(a & ", Rounded to the nearest " & b & ", is" & vbnewline & strd) 

Answer 11

Pour imiter dans Visual Basic la façon dont la fonction tour fonctionne dans Excel, il vous suffit d'utiliser: WorksheetFunction.Round (nombre, décimales)

De cette façon, l'arrondissement bancaires ou comptables ne le font pas fais l'arrondi.

Answer 12

Voici notre solution:

Public Enum RoundingDirection 
    Nearest 
    Up 
    Down 
End Enum 

Public Shared Function GetRoundedNumber(ByVal number As Decimal, ByVal multiplier As Decimal, ByVal direction As RoundingDirection) As Decimal 
    Dim nearestValue As Decimal = (CInt(number/multiplier) * multiplier) 
    Select Case direction 
     Case RoundingDirection.Nearest 
      Return nearestValue 
     Case RoundingDirection.Up 
      If nearestValue >= number Then 
       Return nearestValue 
      Else 
       Return nearestValue + multiplier 
      End If 
     Case RoundingDirection.Down 
      If nearestValue <= number Then 
       Return nearestValue 
      Else 
       Return nearestValue - multiplier 
      End If 
    End Select 
End Function 

Utilisation:

dim decTotal as Decimal = GetRoundedNumber(CDec(499), CDec(0.05), RoundingDirection.Up)