VBA Solidworks，向上取整

Question

我想在vba中製作一個程序來構建solidworks中的一個軸，這必須通過輸入它在用戶窗體中暴露的力來完成。我的公式工作得很好，但我希望它能夠將所有數值累加到一個整數，因爲製造直徑35,65毫米的軸是愚蠢的。

我知道我可以使用「圓（直徑，0）」，但我不希望它圓整，因爲這會使它變弱。

簡而言之：如何在VBA中將數字向上舍入爲整數？

例如：7,3 => 8

任何輸入將不勝感激！

謝謝

羅布

Answer 1

VBA的真在數學上等於-1，假爲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)，而Int除去任何小數部分。