四舍五入到下一个 10 的倍数 vb
round up to next multiple of 10 vb
如何在 VB 中将值向上舍入到下一个 10 的倍数？
例如
19 -> 20
35 -> 40
21 -> 30
我发现有些东西说使用圆形函数，但是当我将它输入 IDE（Microsoft Visual Studio Express 2015）时，它无法识别它。
提前致谢
要四舍五入使用 ceiling 函数。 （信息here）
myNumber = Math.Ceiling(myNumber / 10) * 10
先除以 10，然后再乘以 10 即可。
更新： 如果您想知道，Integer
没有问题
这是一个基于Integer的解决方案。
myNumber = If(myNumber Mod 10 = 0, myNumber, If(myNumber > 0, 10, 0) + 10 * (myNumber \ 10))
它不会受到舍入的影响，而且至少比使用 Math.Ceiling 快 2 倍。
如何在 VB 中将值向上舍入到下一个 10 的倍数？
例如
19 -> 20
35 -> 40
21 -> 30
我发现有些东西说使用圆形函数，但是当我将它输入 IDE（Microsoft Visual Studio Express 2015）时，它无法识别它。
提前致谢
要四舍五入使用 ceiling 函数。 （信息here）
myNumber = Math.Ceiling(myNumber / 10) * 10
先除以 10，然后再乘以 10 即可。
更新： 如果您想知道，Integer
没有问题这是一个基于Integer的解决方案。
myNumber = If(myNumber Mod 10 = 0, myNumber, If(myNumber > 0, 10, 0) + 10 * (myNumber \ 10))
它不会受到舍入的影响，而且至少比使用 Math.Ceiling 快 2 倍。