nel senso 145 -->1+4+5?
cosė a pelle mi viene..
crei un bell'array
dim n() as integer
dim numiniz as long
dim k,j as integer
dim somma as integer
Do While numiniz > 0
ReDim Preserve n(0 To k)
n(k) = numiniz - Int(numiniz / 10) * 10
numiniz = Int(numiniz / 10)
k = k + 1
Loop
For j = 0 To k - 1
somma = somma + n(j)
Next j
|