如何总能找到最接近的百分之一？

Question

我有一个可以随时更改的号码。我想找到这个数字的前一百分之一。我只能找到最接近的百分之一。以下是我正在做的事情：

Dim  mynum as integer 
mynum = 549
Dim tempnumber as integer
tempnumber = Round(mynum / 100, 0) * 100 '>>> equals 500 which is correct

如果mynum是551怎么办？ ＆GT;＆GT;它会得到600我不想要的，我只想要500，无论数字是556,588还是599，我希望这个数字仍然是500。

我希望它是599＆gt;＆gt; 500,799＆gt; 700.基本上是当前数字的百分之一。

Answer 1

有两种方法可以做到这一点：

Round((mynum-50)/100,0)*100

使用工作表功能：

Application.WorksheetFunction.RoundDown(mynum,-2)