vb.net截取小数点 小数点截取函数

VB.NET 怎么样保留后面的小数位

保留两位小数的一般方法是四舍五入法。

10余年的吉安网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整吉安建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“吉安网站设计”,“吉安网站推广”以来，每个客户项目都认真落实执行。

保留两位小数，看千分位。是4或比4小舍去；是5或比5大舍去以后向前一位进1。

如：3.425保留两位小数就是3.43

3.421保留两位小数就是3.42

又如： 3.4263保留两位小数就是3.43

3.4233保留两位小数就是3.42

再如：3.4保留两位小数就是3.40

VB中小数点截取问题

Dim TempStr As String

TempStr = "2.34567"

MsgBox IIf(Format(TempStr, "#.##") TempStr, Format(TempStr, "#.##") - 0.01, Format(TempStr, "#.##"))

这个不四舍五入,如果需要四舍五入~直接format就行了~

如何vb 取小数点后一位的值

方法1：

先取10倍后小数，再取整，再与10求余数，得到小数点后一位

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Str(Int(a * 10) Mod 10), 0, "提示"

方法2：

先将小数用Format转成只有一位小数字符，然后用Right取最后一位字符，得到小数点后一位

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Right(Format(a, ".#"), 1), 0, "提示"

方法3：

先将小数放大1倍，再取整数，然后用Right取最后一位字符，得到小数点后一位

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Right(Str(Int(a * 10)), 1), 0, "提示"

方法4：

将数先放大10倍，取整，减去取整后放大10倍的数，得到得到小数点后一位的值

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Str(Int(a * 10) - Int(a) * 10), 0, "提示"