|
|
|
| Title | Round a number to the nearest multiple of a template in Visual Basic 2005 |
|---|
| Description | This example shows how to round a number to the nearest multiple of a template in Visual Basic 2005. |
|---|
| Keywords | round, round off, digits, VB.NET, template |
|---|
| Categories | Algorithms |
|---|
|
|
|
Thanks to Randy Diven.
The RoundToTemplate function divides a value by a template number, rounds the result, and then multiplies this by the template number.
|
|
Public Function RoundToTemplate(ByVal value As Double, _
ByVal template As Double) As Double
Debug.Assert(template > 0.0000000001, "A template value " & _
"of < 1E-10 is not allowed")
Return template * System.Math.Round(value / template, 0)
End Function
|
|
|
The result is the multiple of the template closest to the original value.
If the template number is something "reasonable" such as 5, 25 or a power of 10, the result makes good intuitive sense. If the template number is something less intuitive, such as 17 or 33, the result is less obvious.
Here are some sample results:
|
|
value template RoundtoTemplate
123.08875 25 125
20 120
0.01 123.09
0.05 123.10
17.17 120.19
7 126
|
| |
|
| |
|
|
