Arrondir un nombre au plus proche de 5 ou 10 ou X

Donné des chiffres comme 499, 73433, 2348 ce VBA puis-je utiliser pour arrondir au plus proche de 5 ou 10? ou un nombre arbitraire?

Par 5:

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

Par 10:

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

etc.

  • Merci à vous tous pour toutes vos réponses. Je suis la plus intelligente pour cela. Désolé, je ne peux que marquer un seul ressponse comme correcte, car la vraie "réponse" a été dispersés à travers plusieurs messages.
  • Cela fonctionne pour moi, tek-tips.com/faqs.cfm?fid=5031
InformationsquelleAutor |
  1. 89

    Il est simple de math. Étant donné un nombre X et un arrondi facteur de N, la formule pourrait être:

    round(X /N)*N

    InformationsquelleAutor
  2. 32

    Intégrée Réponse

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

    Pour virgule flottante entier, 1234.564 à 1235, (c'est VB spécifiques, la plupart des autres langues simplement tronqué) faire:

    int(1234.564)   'result is 1235

    Attention: VB utilise Les Banquiers Arrondissement, au plus proche nombre pair, ce qui peut être surprenant si vous n'êtes pas au courant de ça:

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

    Merci à vous tous.

    InformationsquelleAutor
  3. 11

    À tour la plus proche de X (sans VBA spécifique)

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

    Où int(...) retourne la prochaine plus faible nombre entier.

    Si votre disponible arrondi fonction déjà des tours à la plus proche nombre entier puis omettre l'ajout de 0.5

    • Juste pour clarifier: int(N+0.5) est le même que round(N)
    • oui - j'étais en ajoutant que dans le même temps, comme vous avez dit 🙂
    • +1: Merci pour cette.
    InformationsquelleAutor
  4. 9

    En VB, les maths.tour a des arguments supplémentaires pour spécifier le nombre de décimales et de la méthode d'arrondi. Mathématiques.Round(10.665, 2, MidpointRounding.AwayFromZero) sera de retour 10.67 . Si le nombre est un nombre décimal ou un seul type de données, les maths.round retourne un type de données décimal. Si elle est double, il retourne le type de données double. Qui peut être important si option strict est sur.

    Le résultat de (10.665).ToString("n2") des tours à l'écart de zéro à donner "10.67". sans autres arguments mathématiques.round retourne 10.66, ce qui pourrait conduire à des indésirables les écarts.

    InformationsquelleAutor
  5. 3

    'Exemple: Ronde 499 la plus proche 5. Vous devez utiliser 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)
    InformationsquelleAutor
  6. 1

    Une stricte Visual Basic, vous pouvez convertir la valeur à virgule flottante à un nombre entier d'arrondir dit entier. VB est l'une des rares langues qui arrondit sur la conversion de type (la plupart des autres simplement couper.)

    Multiples de 5 ou x peut être fait simplement en divisant avant et en multipliant après la ronde.

    Si vous voulez arrondir et de garder les décimales, les Maths.round(n, d) serait de travailler.

    InformationsquelleAutor
  7. 1

    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)
    • Je pense que c'est VB.NET pas VBA? La logique est utile si!
    InformationsquelleAutor
  8. 0

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

    InformationsquelleAutor
  9. 0

    Je ne peut pas ajouter de commentaire, donc je vais utiliser cette

    dans un vbs exécuter et avoir du plaisir à comprendre pourquoi les 2 donnent un résultat de 2

    vous ne pouvez pas faire confiance ronde

     msgbox round(1.5) 'result to 2
 msgbox round(2.5) 'yes, result to 2 too
    • Je dirais qu'il a quelque chose à voir avec la façon dont les nombres à virgule flottante sont stockées, ou d'une mise en œuvre correcte de l'international standartized algorithme arrondi. Je ne sais pas son nom, mais c'était pour que tous les autres .5 a été arrondis vers le bas, et le reste vers le haut.
    • L'arrondissement de tours [sic] du plus proche même nombre. Il y a même une explication ici dans.
    • Vilx, votre suggestion est bonne, mais pas pour VBA ronde(465 / 10)*10 sera de retour 460
    • Eh bien, c'est FP le calcul pour vous, get over it. La plupart des FP numéros se terminant par pas de 0.5 sera en réalité qu'une fraction infime soit au-dessus ou au-dessous de la valeur requise, et qui affecte l'arrondissement.
    • Je pense que c'est appelé Banquiers arrondi (nombre pair plus proche), l'une des NOMBREUSES variantes.
    InformationsquelleAutor
  10. 0

    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
    InformationsquelleAutor
  11. 0

    Essayer cette fonction

    --------------démarrer----------------

    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 ------------

    InformationsquelleAutor
  12. 0

    J'ai légèrement mis à jour la fonction fournie par le "wiki de la communauté" (la meilleure réponse), juste pour arrondir au plus proche de 5 (ou ce que vous voulez), avec cette exception : le nombre arrondi ne sera JAMAIS supérieur au nombre d'origine.

    Ceci est utile dans les cas où il est nécessaire de dire que "une société est en vie pendant 47 ans" : je veux que la page web à afficher "est vivant depuis plus de 45 ans", tout en évitant le mensonge en déclarant "est vivant depuis plus de 50 ans".

    Ainsi, lorsque vous nourrissez cette fonction avec 47, il ne sera pas de retour 50, mais sera de retour au lieu de 45.

    'Rounds a number to the nearest unit, never exceeding the actual value
function RoundToNearestOrBelow(num, r)

    '@param         num         Long/Integer/Double     The number to be rounded
    '@param         r           Long                    The rounding value
    '@return        OUT         Long                    The rounded value

    'Example usage :
    '   Round 47 to the nearest 5 : it will return 45
    '   Response.Write RoundToNearestBelow(47, 5)

    Dim OUT : OUT = num

    Dim rounded : rounded = Round((((num)) / r), 0) * r

    if (rounded =< num) then
        OUT = rounded
    else
        OUT = rounded - r
    end if

    'Return
    RoundToNearestOrBelow = OUT

end function 'RoundToNearestOrBelow
    InformationsquelleAutor
  13. -1

    À imiter dans Visual Basic la façon dont la fonction round fonctionne dans Excel, vous avez juste à utiliser:
    WorksheetFunction.Round(nombre, les décimales)

    De cette façon, le secteur bancaire ou de la comptabilité de l'arrondissement ne pas faire les arrondis.

    • Ce ne sera pas ronde 2348 à 2350 comme demandé dans la question (deuxième exemple).
    InformationsquelleAutor