Afrunding

PS:

Forkert formuleret.

Indkøbspris/DG = afrundet pris til nærmeste 0,50

you might get some ideas here

http://allenbrowne.com/round.html

Hvad du spørger efter er blot

int(2*bel)/2

Ikke at forveksle 50 øres afrunding ved kontant handel som jeg vil mene er givet ved:

Function roundup50(bel)
    Dim f
    f = frac(bel)
    roundup50 = Int(bel) - 0.5 * (f >= 0.25) - 0.5 * (f >= 0.75)
End Function