General

6.186 Arrotondare in eccesso per multipli di un valore
  Giorgio Rancati

Per arotondare in eccesso per multipli di un valore, dividere il valore da arrotondare per il valore del multiplo, sommare al risultato della divisione 0,9999, quindi moltiplicare l'intero della somma per il valorea del multiplo.
Ad esempio, se si vuole arrotondare il valore contenuto in MioValore al primo valore superiore multiplo di 5, si opererà nel modo seguente
Dim MioValoreArrotondato As Double
Dim Multiplo As Integer
Multiplo = 5
MioValoreArrotondato = Int((MioValore/Multiplo) + 0.9999) * Multiplo
Se il valore di MioValore è uguale a 104 MioValoreArrotondato sarà uguale a 105, mentre se MioValore è uguale 106 allora MioValoreArrotondato sarà uguale a 110.


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.