Arrotondamento di un numero con virgola mobile

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