Come arrotondare all’intero successivo in vb

Vi sarà capitato, dato un numero, di arrotondarlo all’intero successivo se il valore passato alla funzione è decimale e non arrotondarlo se è già intero.

A tale scopo vi forniamo una comoda funzione utile allo scopo:

Function InteroSuccessivo(numero As Single) As Integer

 InteroSuccessivo = IIf(Int(numero + 1) – numero = 1, numero, Int(numero + 1))
 
End Function

Dove numero è il numero decimale che viene passato. Se il numero +1 sottratto se stesso è 1 vuol dire che è già intero e non facciamo nulla, altrimenti utilizziamo la funzione int che arrotonda per difetto e gli aggiungiamo uno.