---
title: "avrunda rätt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89541-avrunda-rätt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "lillen_009"
published: "2003-11-03T13:27:23.000Z"
updated: "2003-11-03T21:52:34.000Z"
replies: 13
views: 405
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/89541-avrunda-rätt"
---

# avrunda rätt

## #1 — lillen_009, 2003-11-03T13:27Z

Räknar lite på min sida och får inte avrundningen att stämma. Jag vill avrunda allt uppåt

2 ska bli 2
2,01 ska bli 3
2,99 ska bli 3
3 ska bli 3
3,01 ska bli 4
osv...

ett exempel på hur det kan se ut:
rs("number") = 45 i detta fall

```
cint(rs("number")/20 = 2,25 
' ska egentligen vara 3

'om rs("number") är 40 
cint(rs("number")/20 = 2
'Det blir korrekt
```

 

finns det någon funktion som avrundar som jag villl?

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

## #2 — Sebbe, 2003-11-03T13:33Z

Du kan ju skapa en egen funktion. ;)

```
Function AvUpp(intTal)
  If NOT IsNumeric(intTal) Then Exit Function

  intTal = CDbl(intTal)

  If Int(intTal) < intTal Then
    intTal = Int(intTal + 1)
  End If

  AvUpp = intTal
End Function

Response.Write(AvUpp(2.45) & " " & AvUpp(2.98))
```

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

## #3 — Engine^, 2003-11-03T14:46Z

Det räcker väl med

```
Function AvUpp(nTal)
  AvUpp = 0

  If IsNumeric(nTal) Then AvUpp = Int(nTal) + 1
End Function
```

Tror jag... ;)

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

## #4 — Sebbe, 2003-11-03T15:08Z

Tyst med dig! ;)

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

## #5 — @nders, 2003-11-03T15:11Z

Fast det kan nog bli lite galet ändå om man gör som Engine^ skriver. Om det som skickas in till funktionen redan är ett heltal blir resultatvärdet liksom ett för högt.

Så gör en liten kontroll först.

Mvh

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

## #6 — Sebbe, 2003-11-03T15:14Z

Tack @nders! :p ;)

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

## #7 — lillen_009, 2003-11-03T15:24Z

Tack för svaren... men hur får man in det på sidan? Fär tillfället får jag bara Syntaxfel och det pekar på

function AvUpp(ntal)

```
do until rs.eof

Function AvUpp(nTal)
  AvUpp = 0

  If IsNumeric(nTal) Then AvUpp = Int(nTal) + 1
End Function

rakna = rs("threadnr") / 20

response.write "<a href=sida.asp?Page="& AvUpp(rakna) & "&PostId="&rs("postid") &">Länk</a>"

rs.movenext
loop
```

 

Ursäkta för att jag är så trög... :r

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

## #8 — Sebbe, 2003-11-03T15:26Z

Som sagt, använd min version istället. :)

```
Function AvUpp(intTal)
  If NOT IsNumeric(intTal) Then Exit Function

  intTal = CDbl(intTal)

  If Int(intTal) < intTal Then
    intTal = Int(intTal + 1)
  End If

  AvUpp = intTal
End Function
```

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

## #9 — lillen_009, 2003-11-03T15:35Z

ja, ska använda den... är det bara att klistra in den där?

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

## #10 — Sebbe, 2003-11-03T15:36Z

Japp. :)

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

## #11 — lillen_009, 2003-11-03T18:25Z

Gör jag helt fel?

Får syntaxfel och det pekar på raden

```
 function AvUpp(intTal)
```

 

felmeddelande: 0x800A03EA

Vad ska man göra? Har jag gjort helt fel?

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

## #12 — mozilla, 2003-11-03T18:38Z

Ja det har du ;) lägg funktionen utanför loopen.

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

## #13 — Engine^, 2003-11-03T21:07Z

> **@nders skrev:**
>
> Fast det kan nog bli lite galet ändå om man gör som Engine^ skriver. Om det som skickas in till funktionen redan är ett heltal blir resultatvärdet liksom ett för högt.
> 
> Så gör en liten kontroll först.
> 
> Mvh

Hehe... så kan det gå när man har bråttom :)

```
Function Ceiling(nTal)
  Ceiling = 0

  If IsNumeric(nTal) Then
    If nTal - Int(nTal) = 0 Then
      Ceiling = nTal
    Else
      Ceiling = Int(nTal) + 1
    End If
  End If
End Function

Do Until rs.EOF
  rakna = rs("threadnr") / 20

  Response.Write "<a href=sida.asp?Page="& Ceiling(rakna) & " & PostId=" & rs("postid") &">Länk</a>"

  rs.MoveNext
Loop
```

Så, nu borde det inte vara några fel kvar...

\*väntar på verifikation från **sebbe** eller **@nders**\* :)

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

## #14 — Sebbe, 2003-11-03T21:52Z

Jodå, nu var det bättre. ;)
Men nu var vi ju uppe i lika mycket kod igen, så vad spelar det för roll? ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/89541-avrunda-rätt