ASP Round Function Error.

I have been programming in classic ASP for over 6 years now. When building checkout facilities it is necessary to round prices to 2 decimal places (for instance when adding VAT to a basket total).

Sadly during testing of the inbuilt ASP function “Round” I have noticed that in certain circumstances it returns an incorrect result. Below is a list of numbers rounded to 2 decimal places using the “Round” function:

The code to obtain these results was:

You can see what while most are rounding correctly the first row is incorrect, 1.275 should round to 1.28 not 1.27. This problem was consistent on 2 separate Windows 2003 servers using IIS6. I have however noticed that the “formatcurrency” function works correctly in all these circumstances, because of this I wrote the following function:

function roundnum(num)
dim return
if isnumeric(num) then
return = replace(formatcurrency(num),"£","")
end if
roundnum = CDbl(return)
end function

This simply takes the number, runs it through the “formatcurrency” function and then removes the returned pound sign. The results of this on the same set of numbers are:

The code to obtain these results was: