Arrotondamento di un numero con virgola mobile
Da Gambas-it.org - Wikipedia.
Versione del 12 apr 2012 alle 14:36 di Vuott (Discussione | contributi)
Se vogliamo ottenere un arrotondamento all'unità superiore di un numero con la virgola, possiamo utilizzare la funzione Round.
Arrotondamento all'unità superiore
L'arrotondamento all'unità superiore avviene con Round soltanto se il primo numero decimale è uguale o supriore a 5.
Public Sub Button1_Click() Dim a As Float Print Round(87326.5) End
In console avremo:
87327
Arrotondamento all'unità superiore
Se il primo numero decimale è inferiore a 5, si avrà un arrotondamento all'unità inferiore:
Public Sub Button1_Click() Dim a As Float a = 87326.4999999 Print Round(87326.4999999) End
In console avremo:
87326
Arrotondamento senza la funzione Round
Se si intende ottenere l'arrotondamento senza Round, è possibile escogitare anche qualcosa come questo esempio:
Public Sub Button1_Click() Dim a, b As Float = 26.123 'Arrotondamento all'unità superiore: a = Fix(a + 1) '...oppure così: a = Fix(a) + 1 , il risultato è identico. Print "a = "; a 'Arrotondamento all'unità inferiore: b = Fix(b - 1) '...oppure così: b = Fix(b) - 1 , il risultato è identico. Print "b = "; b End
In console avremo:
a = 27
b = 25