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

Versione delle 07:41, 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 in ogni caso l'arrotondamento, si può escogitare qualcosa (senza Round) come questo esempio:

Public Sub Button1_Click()
 
 Dim a As Float

  a = 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:
  a = Fix(a - 1)     '...oppure così: a = Fix(a) - 1 ,  il risultato è identico.

 Print "a = "; a

End

In console avremo:
27