vba - VBA Solidworks，四舍五入

Question

我正在尝试在 vba 中制作一个程序来在solidworks中构建一个轴，这必须通过在用户表单中输入它所承受的力来完成。我的公式工作得很好，但我希望它将所有值四舍五入为整数，因为制作直径为 35.65 毫米的轴只是愚蠢的。

我知道我可以为此使用“Round(Diameter, 0)”，但我不希望它向下舍入，因为这会使它变弱。

简短：如何在 VBA 中将数字四舍五入为整数？

例如：7,3 => 8

任何投入将不胜感激！

谢谢

抢

Answer 1

VBA 的True在数学上等于 -1 和False为 0 所以这应该为你做。

Dim axl as double
axl = 36.5
axl = int(axl) - (int(axl) <> axl)
debug.print axl

假设在物理世界中，轴的直径不能有负尺寸。IOW，当 axl 为正时，该公式从零四舍五入，但当 axl 为负时，该公式向零舍入。

最后一个警告；完全按照提供的方式使用，不要更改Int(axl)为CInt(axl). CInt将值四舍五入到最接近的整数，就像Round(axl, 0)whileInt去掉任何小数部分一样。