[RESOLVED] Round to nearest specified value

[sgrya1]

I've been using this code to round off values but there is a problem when I try to round to a decimal value. RoundToNearestVal = 0.1 and a Double or Variant type. It takes the value as 0 so I get a division by 0 error. What am I doing wrong here?

Public Function RoundToNearest(NumberToRound, RoundToNearestVal)
'Function rounds up or down to the nearest value
    RoundToNearest = RoundToNearestVal * (NumberToRound \ RoundToNearestVal)
    If Abs(NumberToRound - RoundToNearest) > RoundToNearestVal / 2 Then
        If NumberToRound >= 0 Then
            RoundToNearest = RoundToNearest + RoundToNearestVal
        Else
            RoundToNearest = RoundToNearest - RoundToNearestVal
        End If
    End If
End Function

[anhn]

\ is an operator for Long or Integer data type.
x = 1000 \ 0.1 = CInt(1000) \ CInt(0.1) = 1000 \ 0 : Division by zero!

With Variant/Double, change to:

RoundToNearest = RoundToNearestVal * Int(NumberToRound / RoundToNearestVal)

[sgrya1]

Hi anhn. Not sure I understand. NumberToRound \ RoundToNearestVal still returns <Division by zero> and causes an error.
Why is NumberToRound \ RoundToNearestVal set to a Variant/Integer type in the watch window?

[Pradeep1210]

Just as anhn said, these are implicitly converted to integers or long before division, when you use the \ operator.

[sgrya1]

Ohh.. I didn't notice the \ / difference.

Thankyou both!

[Pradeep1210]

\ = integer division
/ = decimal division