舍入到最接近的整数偶数

我想一个简单的math问题，我正在寻找一个algorithm来凑到最接近的整数偶数

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

如果你可以给我VBA的语法，这将是真棒。 我知道excel as =even(..)函数，但是我不能在VBA中使用它。

谢谢

Answer 1

您可以简单地使用Excel函数：

 Application.WorksheetFunction.Even(YourNumber)