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.
Ottimo
RispondiElimina