Differenze tra le versioni di "Arrotondamento di un numero con virgola mobile"

Versione delle 07:47, 16 feb 2012

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