[Oppemaj]

An OP posted a thread asking how he could get rid of all decimals and keep just the first decimal digit without rounding down or up.
Finally, he used substring...

See:
http://www.dreaminco...from-substring/

The solution I want to share with you is fairly simple. I'll break it into steps:

1 Multiply the number by 10 (to keep one decimal digit)
2 Drop the rest of decimals.
3 Divide by 10.

Note: This can be done to display any number of decimals(two decimals, three,...)

Option Explicit On
Option Strict On
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim number As Double = 35.735
        'Display the number with one decimal digit without rounding.
        number = CDbl(Fix(number * 10) / 10)
        'The output is 35.7
    End Sub
End Class

[AdamSpeight2008]

Also the user could investigate the formatting string available .ToString

Dim s = number.ToString("N2")

[andrewsw]

ToString performs rounding, so 35.775 is 35.78 using "N2".

---

Just to note that in this expression

number = CDbl(Fix(number * 10) / 10)

the CDbl is unnecessary because Fix(double) returns a double and VB's '/' doesn't perform integer division.

This post has been edited by andrewsw: 14 October 2014 - 08:55 AM