Avrundning till helor och halvor.

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)

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

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