Ciao,

debbo far eseguire ad uno script un calcolo semplicissimo ma ho bisogno che il risultato sia un numero intero ed arrotondato per eccesso.

Ho i valori:

' valore di esempio (=70) ma la variabile pPeso assume sempre e comunque un valore diverso
pPeso = 70
' valore costante della variabile pPesoMax
pPesoMax = 30

if pPeso>pPesoMax then

' calcolo quanti pacchi mi servono
pQuantiPacchi = CInt(pPeso/PesoMax)
'stabilisco che il primo pacco pesa quanto il massimo consentito
pPacco1 = pPesoMax
' calcolo il peso del pacco 2 che
pPacco2 = pPeso-pPacco1
end if

Il risultato e':
Pacco1: 30
Pacco2: 40
Quanti pacchi: 2

Come posso arrotondare per eccesso la divisione? Avrei bisogno che come risultato dia 3 anziche' 2 in quanto:

il primo pacco deve pesare 30
il secondo pacco deve pesare 30
il terzo pacco pesera' 10
Totale pacchi = 3

Ho provato a fare la divisione utilizzando "CLng" invece di "CInt" ma il risultato e' lo stesso.

Inoltre e' possibile fare in modo che lo script, dopo che abbia effettuato la divisione arrottondata per eccesso, calcoli anche il peso dei tre pacchi in base al peso iniziale passato come parametro (pPeso = 70) come indicati sopra, ossia:

Pacco1=30
Pacco2=30
Pacco3=10
Quanti pacchi=3

Grazie

Grazie tanto.


Funziona a meraviglia.