Arrotondamento di un numero con virgola mobile
Da Gambas-it.org - Wikipedia.
Versione del 16 feb 2012 alle 06:47 di Vuott (Discussione | contributi)
Se vogliamo ottenere un arrotondamento all'unità superiore, possiamo utilizzare la funzione Round.
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
Altrimenti 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
Se si intende ottenere l'arrotondamento senza Round, è possibile escogitare anche qualcosa (senza Round) 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