Rundung einer Zahl auf die nächste 5 oder 10 oder X

Gegebenen zahlen wie 499, 73433, 2348, was VBA kann ich verwenden, um die Runde auf die nächsten 5 oder 10? oder eine willkürliche Zahl?

Durch 5:

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

Um 10:

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

etc.

  • Danke an alle für all Eure Antworten. Ich bin klüger für Sie. Sorry, ich kann nur Zeichen einer einzigen ressponse als richtig, als das eigentliche "Antwort" war, verteilt über mehrere Nachrichten.
  • Dies funktioniert für mich tek-tips.com/faqs.cfm?fid=5031
InformationsquelleAutor |
  1. 89

    Es ist einfache Mathematik. Gegeben eine Zahl X und eine Rundung, Faktor N, die Formel wäre:

    round(X /N)*N

    InformationsquelleAutor
  2. 32

    Integrierte Antwort

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

    Für Gleitkomma-zu-Ganzzahl, 1234.564 um 1235, (das ist VB-spezifisch, die meisten anderen Sprachen einfach abschneiden) tun:

    int(1234.564)   'result is 1235

    Vorsicht: VB verwendet Banker Rundung, auf die nächste gerade Zahl, die kann überraschend sein, wenn Sie sich dessen nicht bewusst:

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

    Danke an alle.

    InformationsquelleAutor
  3. 11

    Zu Runden auf den nächsten X (ohne in VBA-spezifisch)

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

    Wo int(...) liefert die nächst niedrigere ganze Zahl.

    Wenn Ihr zur Verfügung Rundung Funktion bereits Runden um den nächsten ganze Zahl, dann lassen Sie die Zugabe von 0,5

    • Nur um zu klären: int(N+0.5) ist das gleiche wie round(N)
    • ja - ich war fügte hinzu, dass zur gleichen Zeit, Sie kommentiert 🙂
    • +1: vielen Dank für diese.
    InformationsquelleAutor
  4. 9

    In VB, math.Runde hat, zusätzliche Argumente zu geben Sie die Anzahl der Dezimalstellen und Rundung-Methode. Math.Runde(10.665, 2, MidpointRounding.AwayFromZero) zurück 10.67 . Wenn die Zahl eine dezimal-oder single-Datentyp, math.Runde gibt ein decimal-Datentyp. Wenn es ist doppelt, es gibt double-Datentyp. Das kann wichtig sein, wenn option strict aktiviert ist.

    Ergebnis (10.665).ToString("n2") Runden Weg von null zu geben "10.67". ohne weitere Argumente, math.Runde gibt 10.66, was dazu führen könnte, die zu unerwünschten Abweichungen.

    InformationsquelleAutor
  5. 3

    'Beispiel: Runde 499 zur nächsten 5. Verwenden Sie die FUNKTION 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

    Für eine strikte Visual Basic-Ansatz, können Sie konvertieren die floating-point-Wert auf eine Ganzzahl zu Runden, sagte integer. VB ist eine der wenigen Sprachen, die Runden auf Typ-Konvertierung (die meisten anderen einfach abschneiden.)

    Vielfaches von 5 oder x getan werden kann, einfach durch Division vor und vermehren, nachdem die Runde.

    Wenn Sie möchten, die Runde und halten Dezimalstellen, Math.Runde(n, d) arbeiten würde.

    InformationsquelleAutor
  7. 1

    Hier ist unsere Lösung:

    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

    Verwendung:

    dim decTotal as Decimal = GetRoundedNumber(CDec(499), CDec(0.05), RoundingDirection.Up)
    • Ich denke, das ist VB.NET nicht VBA? Die Logik ist nützlich wenn!
    InformationsquelleAutor
  8. 0

    Einfach ROUND(x/5)*5 sollte den job tun.

    InformationsquelleAutor
  9. 0

    Kann ich nicht hinzufügen, Kommentar, so dass ich diese

    in einer vbs ausführen und Spaß haben, herauszufinden, warum die 2 geben ein Ergebnis von 2

    kann man nicht Vertrauen, Runde

     msgbox round(1.5) 'result to 2
 msgbox round(2.5) 'yes, result to 2 too
    • Ich würde sagen, dass es hat etwas zu tun mit der Art, wie floating-point-zahlen gespeichert sind, oder eine korrekte Umsetzung der International standartized Rundung Algorithmus. Ich weiß nicht, es ist der name, aber es war so, dass jeder andere .5 war abgerundet, und der rest.
    • Rundung Runden [sic] auf die nächste gerade Zahl. Es gibt sogar eine Erklärung, die hier in SO.
    • Vilx, dein Vorschlag ist gut, aber nicht für VBA-Runde(465 / 10)*10 460 zurück
    • Gut, dass die FP Mathematik für Sie, get over it. Die meisten FP-Nummern enden in 0,5 tatsächlich einen winzigen Bruchteil entweder über oder unter dem gewünschten Wert, und das wirkt sich auf die Rundung.
    • Ich denke, dass heisst Bankern Rundung (nächste gerade Zahl), eine der VIELEN Varianten.
    InformationsquelleAutor
  10. 0

    sowas?

    '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

    Versuchen, diese Funktion

    --------------starten----------------

    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

    -------------Ende ------------

    InformationsquelleAutor
  12. 0

    Ich ein wenig aktualisiert die Funktion der "community-wiki" (das ist die beste Antwort), nur um Runde auf die nächsten 5 (oder was du willst), mit dieser Ausnahme : die gerundete Zahl wird NIE besser als die ursprüngliche Zahl.

    Dies ist nützlich in Fällen, wenn es nötig ist zu sagen, dass "ein Unternehmen lebt seit 47 Jahren" : ich möchte die web-Seite für die Anzeige "lebt seit mehr als 45 Jahren", während die Vermeidung von Lügen bei der Angabe "lebt seit mehr als 50 Jahren".

    Also, wenn Sie füttern Sie diese Funktion mit 47, es wird nicht wieder 50, aber wird zurückkehren, 45 statt.

    '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

    Imitieren in Visual Basic die Möglichkeit die Funktion Runden in Excel funktioniert, man muss Sie nur nutzen:
    WorksheetFunction.Round(Zahl, Dezimalstellen)

    Diese Weise die banking oder Buchhaltung, die Rundung, nicht die Rundung.

    • Dies wird nicht Runde 2348 bis 2350, wie gewünscht, in der Frage (zweites Beispiel).
    InformationsquelleAutor
Schreibe einen Kommentar