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

Versione delle 14:40, 12 apr 2012

Se vogliamo ottenere un arrotondamento di un numero con la virgola, possiamo utilizzare la funzione Round.

Arrotondamento all'unità superiore

Se il primo numero decimale è uguale o supriore a 5, si avrà un arrotondamento all'unità superiore:

Public Sub Button1_Click()

 Dim a As Float

 Print Round(87326.5)

End

In console avremo:
87327

Arrotondamento all'unità inferiore

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