Runde op til nærmeste halve

skal det laves i Kode ?

Ja, gerne.
Altså det skal jo laves i et udtryk.
Men hvis du kan hjælpe på anden måde er det også ok :-)

Hvis ja. Så prøv denne.

x = dit tal
y = decimal tallet
z = nyt resultat

-----
y = x - int(x)
if y> = 0,01 & y <= 0,49 then
  Z = y + 0,50
else
  if y >= 0,51 & y <= 0,99 then
    z = y+1 
  else
    z = x
  end if
endif 


Sidder ikke ved en maskine hvor jeg kan teste det :-)

http://support.microsoft.com/?kbid=209996

Tanke gangen virkede :-)
Ved ikke om din kode virkede, jeg brugte det du lavede i et udtryk og det virker :-)

Det blev sådan her:

Afrundet: IIf([Rest]>="0,01" And [Rest]<="0,49";"0,50";0)+IIf([Rest]>="0,51" And [Rest]<="0,99";"1";0)+IIf([Rest]="0,5";"0,5";0)+Int([Samlet uden afrunding]).

Tusind tak for hjælpen.
Svarer du ikke lige, så du kan få dine point?

Fint du fik det til at virke