四舍五入到最接近的整数偶数

Question

我认为这是一个简单的数学问题，我正在寻找一种算法来舍入到最接近的整数偶数，所以

4.4 = 6
5.1 = 6
2.1 = 4
1.9 = 2 etc....

如果你能给我一个很棒的VBA语法。 我知道excel为=even(..)函数但我不能让它在VBA中工作。

谢谢

Answer 1

您可以使用以下方式使用Excel功能：

Application.WorksheetFunction.Even(YourNumber)