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

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