vb中取值（小数点后2位）的函数是啥？

Posted 2023-04-30

我想知道取小数点后2位 小数点后3位舍弃 使用什么函数？

VB中有专门用来四舍五入的函数

Round 函数：返回按指定位数进行四舍五入的数值。
语法：Round(expression[, numdecimalplaces])
参数：expression（必选项）－被四舍五入的数值表达式 ；numdecimalplaces（可选项）－数字表明小数点右边有多少位进行四舍五入，如果省略则 Round 函数返回整数。

下面的示例利用 Round 函数将数值四舍五入到两位小数:
Dim MyVar, pi
pi = 3.14159
MyVar = Round(pi, 2) 'MyVar contains 3.14。 参考技术A 好象没有这个函数
不过可以用语句实现
x = Int(x * 100) / 100 参考技术B round

Excel2010中如何去掉小数点后函数计算出来的、多余的0

因为是保留了5位有效数字，而且是利用函数计算出来的，后面好多多余的0去不掉，如何处理？

红色圈住的是减少小数点数位，按一次就减少小数点最后面的一个数

或者也可以自己设置小数的位数

然后按下确定就可以了

追问

不行，个人原因：小数位数必须≤5。。。当除不尽的时候或者小数点后大于5时，小数点后要有5位数字，比如5.51235。。。当能够除尽的时候，小数点后可能不需要5位，比如正常的小数点后5位数：5.51000，那这个时候我要的是5.51，而不是5.51000。。。所以没有解决我的问题

追答

你是用常规吗？

追问

亲，请看清楚我追问的问题，设置单元格中：数值：小数位数必须是5。。。但是：当能够除尽的时候，小数点后可能不需要5位，比如正常的小数点后5位数：5.51000，那这个时候我要的是5.51，而不是5.51000。。。后面多余的0不需要，因为我复制或给别人看的时候，那些0是多余的，难道你给别人读的时候会把后面的0读出来么

追答

???

所以你用的常规?

参考技术A

用这个公式，格式刷刷一下就好

参考技术B 在红圈内单元格的计算公式前加一层函数ROUND(计算公式，5)。
试试追问

不行，试了，没用

追答

能把公式拍个照吗？

追问

公式不重要，可以改成加减乘除，关键是我要的精度是小数点后5位，但是能够除尽的时候，我又不需要5位。。。举例如下：

当除不尽的时候或者小数点后大于5时，小数点后要有5位数字，比如5.51235。。。当能够除尽的时候，小数点后可能不需要5位，比如正常的小数点后5位数：5.51000，那这个时候我要的是5.51，而不是5.51000

参考技术C 选中单元格数据，在数据格式里设置小数位数。追问

不行，个人原因：小数位数必须≤5。。。当除不尽的时候或者小数点后大于5时，小数点后要有5位数字，比如5.51235。。。当能够除尽的时候，小数点后可能不需要5位，比如正常的小数点后5位数：5.51000，那这个时候我要的是5.51，而不是5.51000。。。所以没有解决我的问题

参考技术D 设数据在A1,在B1写函数，公式为：=INT(A1)追问

不行