Best way to remove trailing zeros from a Decimal - vb.net

Question

I have a calculation that returns a decimal with a maximum of two decimal places. What I'd like to achieve is a result that doesn't include decimal zeros, so 8.00 is shown as 8, 8.10 is shown as 8.1 and 8.12 is shown as 8.12.
I've been all over the math functions and can't find anything to achieve this - can anyone point me in the right direction?

Answer 1

As Benjamin Leinweber pointed out in one of the comments it's probably a product of it being displayed as a string. That said, you could take the duct tape approach and just lop off the trailing digits you don't want like this (who doesn't love duct tape every so often):
' Hacky, I did this because Visual Studio removes the 0 in the editor
Dim num As Decimal = CDec("8.10")
' This will now output 8.10
Console.WriteLine(num)
' Put it in a string then trim off the 0's and then the decimal place if it then happens to be at the end
Dim buf As String = num.ToString
buf = buf.TrimEnd("0")
buf = buf.TrimEnd(".")
' This will output 8.1
Console.WriteLine(buf)

Answer 2

Are you talking about the VB Decimal data type? If so then read this from the MSDN documentation...
Trailing Zeros. Visual Basic does not store trailing zeros in a Decimal literal.
However, a Decimal variable preserves any trailing zeros acquired computationally.
The following example illustrates this.
Dim d1, d2, d3, d4 As Decimal
d1 = 2.375D
d2 = 1.625D
d3 = d1 + d2
d4 = 4.000D
MsgBox("d1 = " & CStr(d1) & ", d2 = " & CStr(d2) &
", d3 = " & CStr(d3) & ", d4 = " & CStr(d4))
The output of MsgBox in the preceding example is as follows:
d1 = 2.375, d2 = 1.625, d3 = 4.000, d4 = 4
So since the Decimal data type holds on to significant digits in a calculation then you may want to convert the data type to double and use a custom format like {0:#.##} for display
MSDN Decimal Data Type

Answer 3

.ToString("###") or however many octothorpes for however many to the left of the decimal.
If you want to have... say, 2 decimal places:
.ToString("###.##")

Answer 4

You can do it by using TrimEnd function :
Dim number1 As Double = 8.0
Dim number2 As Double = 8.1
Dim number3 As Double = 8.12
Console.WriteLine(number1.ToString("N2").TrimEnd("0"c).TrimEnd("."c))
Console.WriteLine(number2.ToString("N2").TrimEnd("0"c).TrimEnd("."c))
Console.WriteLine(number3.ToString("N2").TrimEnd("0"c).TrimEnd("."c))
Consider that formatting with "F0" will remove 1000 separators too.

Answer 5

From what you are describing, it sounds like you are using a Fixed-point format when you should be using a Number format or a General format.
This sample code taken from the MSDN shows how to use the Number format:
Dim dblValue As Double = -12445.6789
Console.WriteLine(dblValue.ToString("N", CultureInfo.InvariantCulture))
' Displays -12,445.68
Console.WriteLine(dblValue.ToString("N1", _
CultureInfo.CreateSpecificCulture("sv-SE")))
' Displays -12 445,7
Dim intValue As Integer = 123456789
Console.WriteLine(intValue.ToString("N1", CultureInfo.InvariantCulture))
' Displays 123,456,789.0
For a complete list of formatters, have a look at this MSDN article.

Answer 6

This solution applies to different cultures and works with integer numbers ends with Zero
`
Public Module DecimalExt
<Extension()>
Function ToStringWithoutZeros(ByRef value As Decimal) As String
Dim buf As String = value.ToString("n10")
buf = buf.TrimEnd("0").TrimEnd(",").TrimEnd(".")
Return buf
End Function
End Module
`

Answer 7

I think You can try with Val Function
Like we we have a Decimal Value like
8.00
8.01
8.590
Then after using the Val() function it will convert this decimals to
Dim number as Decimal = 8.00
`Msgbox(Val(number))` // will gives you 8