WorksheetFunction.Even (Excel)

Gibt Zahl auf die nächste gerade ganze Zahl gerundet zurück.

Wenn number nicht numerisch ist, gibt sogar die #Value! Unabhängig vom Vorzeichen von Zahl wird ein Wert aufgerundet.

Even (Arg1)

Arg1: Zahl – Der zu rundende Wert.

Dim dblArg1 As Double: dblArg1 = 
Dim dblEven As Double
dblEven = WorksheetFunction.Even(Arg1:=dblArg1)