Avrunda heltal till jämna tio-tal uppåt

Jag kom att tänka på att jag har ett liknande problem !

Löste det så här:

function RoundUp(str)
	Do until Round(str/10)>str/10:str=str+1:loop
	RoundUp=Round(str/10)*10
end function

response.write RoundUp(1666)

:)

function f(v)
 if v mod 10 <> 0 then f = round(v/10+0.5)*10 else f = v
end function

vad skall hända om det redan är jämnt tiotal?
med ovanstående funktion så görs ingenting om talet är jämnt delbart med 10.

LarsG:s exempel är nog att föredra (som vanligt!?)

Mitt exempel rundar även ex.180 till 190

men det går ju att ordna i o f, men kan man slippa loop:en så är ju det ju att föredra...

Mvh

LarsG: Vad gör mod?
Och Round avrundar till närmste heltal, eller?

:)

LarsG skrev:

vad skall hända om det redan är jämnt tiotal?
med ovanstående funktion så görs ingenting om talet är jämnt delbart med 10.

Precis så ska re va :) :bire

mod innebär att man får resten vid en division

24 mod 6 = 0 'eftersom 24 är jämnt delbart med 6

24 mod 7 = 3 'eftersom ...

Ett enklare alternativ är

Function runda(tal)
    runda = 10 * Int((9 + tal) / 10)
End Function