<%
' ===== REGEL SOM POSTEN GÅR EFTER =====
' = 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 =
' ======================================

vValue = 234.60 ' ==================== Det vi vill avrunda.
vUt = Int(2 * vValue + 0.5) / 2 ' ==== Avrundningsformel.
vDiff = vUt - vValue ' =============== Hur mycket vi avrundat med.

' ==== Formatera till Currency.
cValue = FormatCurrency(vValue)
cUt = FormatCurrency(vUt)
cDiff = FormatCurrency(vDiff)

' ==== Pressentera resultatet.
Response.Write("IN : " & cValue & "
")
Response.Write("UT : " & cUt & "
" )
Response.Write("DIFF : " & cDiff)
%>