Rounding a Number to a Nearest Given Multiple

Question

Rounding a Number to a Nearest Given Multiple

raklali 236

I made the following attempt

Public Function RoundToNearestMultiple(ByVal value As Object, ByVal multiple As Object) As Object
           Return (value \ multiple) * multiple
End Function

When I Call the Function as given below, I get the Result as Shown Against Each Call

MsgBox(RoundToNearestMultiple(1936, 1)) '==>1936
MsgBox(RoundToNearestMultiple(1936, 5)) '==>1935
MsgBox(RoundToNearestMultiple(1936, 10)) '==>1930
MsgBox(RoundToNearestMultiple(1936, 100)) ' ==>1900
MsgBox(RoundToNearestMultiple(1936, 500)) ' ==>1500
MsgBox(RoundToNearestMultiple(1936, 1000)) ' ==>1000

Apparently, the Output is not correct.

What is correct way to do the RoundingOf to the Nearest Given Multiple

So I tried the following but am still getting incorrect values

 Public Function RoundToNearestMultiple(ByVal value As Object, ByVal multiple As Object) As Object
        Dim TempMultiple = 1 ^ (Val(Len(Str(multiple))) - 1)
        Return Math.Ceiling((value \ multiple) * TempMultiple)
    End Function

Seems, I need to use both Math.Floor and Math.Ceiling with a If...Else clause.

Accepted answer

2 additional answers

Your answer

Answer 1

Viorel 122.6K

Check another junction:

Public Function RoundToNearestMultiple(ByVal value As Integer, ByVal multiple As Integer) As Integer
    Return ((value + multiple \ 2) \ multiple) * multiple
End Function

If you expect negative numbers too, then give details.

Answer 2

LesHay 7,141

Hi

What would you expect the result of:

RoundToNearestMultiple(1950, 100) to be?

There are several methods, best you check out

http://learn.microsoft.com/en-us/dotnet/api/system.math.round?view=net-6.0#examples

Also, saying that something is 'wrong' just because it doesn't agree with your own understanding can sometimes be wrong!

Answer 3

Leon Stanley 96

Simply

Return Cint(value / multiple) * multiple

RoundToNearestMultiple(1949, 100) ' =>> 1900
RoundToNearestMultiple(1950, 100) ' =>> 2000

Share via

Rounding a Number to a Nearest Given Multiple

2 additional answers

Your answer