---
title: "Avrunda uppåt till närmaste tiotal"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/164213-avrunda-uppåt-till-närmaste-tiotal"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Troxy"
published: "2007-09-06T11:56:58.000Z"
updated: "2007-09-07T09:19:48.000Z"
replies: 6
views: 1186
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/164213-avrunda-uppåt-till-närmaste-tiotal"
---

# Avrunda uppåt till närmaste tiotal

## #1 — Troxy, 2007-09-06T11:56Z

Hej,
hur avrundar jag uppåt till närmaste tiotal med ASP/VbScript?
Om jag har talet 55 eller 32 så vill jag få ut 60 respektive 40.
Tacksam för svar!

Permalänk: https://www.webforum.nu/p/164213

## #2 — i2n2, 2007-09-06T12:20Z

Om vi bortser från negativa tal som kan hanteras lite olika i olika språk \[1\] så kan man skriva pseudokoden (eftersom jag inte använder ASP/VbScript)

```
if (tal MOD 10) == 0 then
	avrundat = tal
else
	 avrundat = tal - (tal MOD 10) + 10
```

\[1\] <http://en.wikipedia.org/wiki/Modulo_operation>

Permalänk: https://www.webforum.nu/p/2025862

## #3 — spango, 2007-09-06T12:22Z

```
function RoundUp(n, x)
    Dim ret
    if n mod x <> 0
        ret = n + (x - (n mod x))
    else
        ret = n
    endif
    RoundUp = ret
end function
```

med reservation för syntaxfel

Permalänk: https://www.webforum.nu/p/2025865

## #4 — Troxy, 2007-09-06T12:25Z

Tack för era svar.  :) 
spango, din funktion fungerade fint efter lite fix.

Nu inser jag att jag egentligen ville veta hur långt det var kvar till nästa tiotal...
Detta löste jag såhär, vilket kanske inte är så elegant eftersom strängar blandas med tal.

```
Tal1 = 32
Tal2 = 10 - CByte(Right(CStr(Tal1),1))
```

Permalänk: https://www.webforum.nu/p/2025867

## #5 — @nders, 2007-09-06T12:25Z

spango:
ser väl ganska bra ut, men det skall vara ett mellanslag mellan *end* och *if*.

mvh

Permalänk: https://www.webforum.nu/p/2025868

## #6 — spango, 2007-09-07T07:00Z

> **Troxy skrev:**
>
> Nu inser jag att jag egentligen ville veta hur långt det var kvar till nästa tiotal...
> Detta löste jag såhär, vilket kanske inte är så elegant eftersom strängar blandas med tal.

Du kan göra så här om du vill få koden lite mer generaliserbar:

```
function DistanceTo(num, target)
    DistanceTo = (target - (num mod target)) mod target
end function
DistanceTo(4, 10) ' ger 6
DistanceTo(7, 10) ' ger 3
DistanceTo(20, 10) ' ger 0
DistanceTo(10, 10) ' ger 0
```

Permalänk: https://www.webforum.nu/p/2026060

## #7 — Troxy, 2007-09-07T09:19Z

spango, ååh tack för det där!   :e 

Jag håller på och bygger en databas-class för att generera och validera OCR-nummer för bankgiro.

Permalänk: https://www.webforum.nu/p/2026097

---

Tråden på webben: https://www.webforum.nu/amne/asp/164213-avrunda-uppåt-till-närmaste-tiotal