---
title: "Avrundning till helor och halvor."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/133340-avrundning-till-helor-och-halvor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ConnyFox"
published: "2005-08-26T14:18:44.000Z"
updated: "2005-08-26T17:41:53.000Z"
replies: 3
views: 544
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/133340-avrundning-till-helor-och-halvor"
---

# Avrundning till helor och halvor.

## #1 — ConnyFox, 2005-08-26T14:18Z

Vill avrunda så talen blir t.ex

0,5
1,0
1,5
2,0
2,5
osv

0\.00 kr - 0.24 kr = 0.00 kr

0\.25 kr - 0.74 kr = 0.50 kr

0\.75 kr - 0.99 kr = 1.00 kr

någon som har en smidig funktion för detta? sökte men hittade ej!

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

## #2 — Jesper T, 2005-08-26T15:38Z

Vet inte om den är smidig och den innehåller ju en massa stränghantering men testa denna

```
Function RoundMe(ByVal value)
	Dim val 'As Long
	'Kolla om talet är ett decimaltal
	If instr(value,",") > 0 then
		'Dela upp heltal och decimaler
		val = split(value,",")
		'Kolla om första decimalen är mindre än 5
		If Int(left(cLng(val(1)),1)) < 5 then
			RoundMe = val(0) &",0"
		Else
			RoundMe = val(0) &",5"
		End if
	Else
		'Inget decimaltal returnera inkommande värde
		RoundMe = value
	End if
End Function
Response.write RoundMe(8.42)
```

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

## #3 — emission, 2005-08-26T17:23Z

```
Response.Write FormatCurrency(Int(2*value+0.5)/2)
```

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

## #4 — Jesper T, 2005-08-26T17:41Z

Så kan man också göra, men det är inte rätt. ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/133340-avrundning-till-helor-och-halvor