Arrondir un nombre, Visual Basic

J'ai une application Visual Basic qui a besoin d'arrondir un nombre, par exemple, 2.556 deviendrait 2.55 et pas 2.26.

Je peux le faire à l'aide d'une fonction de dépouiller les personnages plus que 2 à droite du point décimal à l'aide de ceci:

Dim TheString As String
TheString = 2.556
Dim thelength = Len(TheString)
Dim thedecimal = InStr(TheString, ".", CompareMethod.Text)
Dim Characters = thelength - (thelength - thedecimal - 2)
_2DPRoundedDown = Left(TheString, Characters)

Est-il une meilleure fonction pour faire cela?

OriginalL'auteur Paul | 2009-08-04

  1. 11

    Vous pouvez faire cela avec Les mathématiques.Étage. Toutefois, vous aurez besoin de multiplier * 100 et diviser, puisque vous ne pouvez pas fournir un certain nombre de chiffres

    Dim theNumber as Double
theNumber = 2.556
Dim theRounded = Math.Sign(theNumber) * Math.Floor(Math.Abs(theNumber) * 100) / 100.0
    Cela ne fonctionnera pas si le nombre est négatif.
    Parfois, il est utile de stocker vos nombres entiers ou à virgule fixe (si vous n'avez pas besoin de toute la gamme de virgule flottante), effectuer des calculs sur le point fixe de chiffres et de les ajuster ensuite lors de l'affichage de l'utilisateur.
    Bon j'ai édité à compte pour les nombres négatifs, positifs aussi bien que
    Puisque c'est VB, il suffit d'utiliser une Monnaie de type de données.

    OriginalL'auteur Reed Copsey

  2. 3

    Une autre façon de faire qui ne repose pas sur l'utilisation de ce type de Chaîne:

    Dim numberToRound As Decimal
Dim truncatedResult As Decimal
numberToRound = 2.556
truncatedResult = (Fix(numberToRound*100))/100
    À l'aide de Fix() sera légèrement plus rapide que l'utilisation de Floor().
    Avez-vous quelque chose qui prend en charge cette déclaration?
    Correctif est en fait plus lentement que les Mathématiques.Étage - il le fait d'une case, puis appelle les Mathématiques.Plancher en interne. Exécuter réflecteur sur Microsoft.VisualBasic.dll pour plus de détails.
    Oups je l'ai dit à l'envers. Votre commentaire a été mon raisonnement.

    OriginalL'auteur Saul Dolgin

  3. 2

    Les Mathématiques.Floor( ) la réponse est bonne. Je ne suis pas sûr exactement ce qui VB environnements Fix( ) est définie dans la. Comme Justin points, Math.Floor( ) ne fonctionne pas avec des nombres négatifs. Vous auriez à prendre la valeur absolue, puis multiplier par le SGN( ) du nombre. Je ne sais pas le nom exact de la fonction que vous souhaitez utiliser pour obtenir le Signe (pas de péché() ) de le nombre.

    En pseudo-code, de prendre des valeurs négatives en compte, le résultat ressemblerait à:

    result = sgn( num ) * floor( abs( num * RoundToDig ) ) / RoundToDig

    --
    Fourrure vaches meuh et décompresser.

    Je suis habitué à la fonction Fix() à partir de VB6, mais il est disponible dans VB.NET ainsi - msdn.microsoft.com/en-us/library/...
    La fonction Math.Signe. @Saul: Réparer les appels de Mathématiques.Plancher en interne.
    Qu'est-ce que cette entreprise sur la décompression des bovins?

    OriginalL'auteur WyrdestGeek

  4. 1

    D'arrondir à la baisse

    Math.Floor(number)

    De garniture de caractères

    number.Substring(0,1)

    Vous pouvez le convertir en chaîne de caractères.

    OriginalL'auteur ad48

  5. 0
    Dim Input As Decimal
Dim Output As Decimal
Input = 2.556
Output = Input - (Input Mod 0.01)

    Cela fonctionne avec des nombres positifs et négatifs

    OriginalL'auteur Oncure1