Arrotondamento di un numero con virgola mobile

Se vogliamo ottenenre 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 in ogni caso l'arrotondamento all'unità superiore, si può escogitare qualcosa (senza Round) come questo esempio:

Public Sub Button1_Click()
 
 Dim a As Float = 26.123

  a = Fix(a + 1)     '...oppure così: a = Fix(a) + 1 ,  il risultato è identico.

 Print "a = "; a

End