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) * MultiploSe il valore di MioValore è uguale a 104 MioValoreArrotondato sarà uguale a 105, mentre se MioValore è uguale 106 allora MioValoreArrotondato sarà uguale a 110. |