Round number but keep exact digits

Question

when I call this function like this Rounded(50.080, 3) Im getting "50.08" how can I force to keep the trailing zeros?

Public Function Rounded(ByVal Number, ByVal Decimals)
    Rounded = Int(Number * 10 ^ Decimals + 1 / 2) / 10 ^ Decimals
End Function

Don't you mean trailing zeroes? That is a presentation issue which really shouldn't be the concern of a rounding function. — DeanOC, Mar 31 '14 at 02:27

austin-schick · Accepted Answer · 2014-03-31T03:21:07.260

3

Dim RoundedString As String = FormatNumber(Rounded, Decimals, , , TriState.False)

should do it for you

edited Mar 31 '14 at 03:21

answered Mar 31 '14 at 02:30

austin-schick

1,225
7
11

this is not working because its converting "1542.800" into "1,542.800" – XK8ER Mar 31 '14 at 03:15

score 1 · Answer 2 · answered Mar 31 '14 at 02:30

Please, for your own health, turn Option Strict and Option Explicit on, stop using the return variable unless you really want to, and drop the legacy VB6 functions (like Int).

Then you can probably hack something together with a string format like this:

Public Function Rounded(number As Decimal, decimals As Integer) As String
    Return number.ToString("0." & New String("0"c, decimals))
End Function

It’s generally better to just use the format string yourself if you can, though, as in num.ToString("0.000") for three decimal places, and drop Rounded entirely.

score 0 · Answer 3 · edited Jul 20 '20 at 22:41

0

You can use decimal.Round(Value, 2, MidpointRounding.AwayFromZero), see more details here

edited Jul 20 '20 at 22:41

Anic17

712
5
18

answered Mar 31 '14 at 02:29

lixincun

1

Round number but keep exact digits

3 Answers3