WorksheetFunction.Even (Excel)

Retorna o núm arredondado para o inteiro par mais próximo. Esta função pode ser usada para processar itens que aparecem em pares. Por exemplo, um engradado aceita fileiras de um ou dois itens. O engradado está cheio quando o número de itens, arredondado para mais até o par mais próximo, preencher sua capacidade.

Se núm não for numérico, par retornará o #VALUE! valor de erro. Independentemente do sinal de núm, um valor será arredondado quando for diferente de zero. Se núm for um inteiro par, não haverá arredondamento.

Even (Arg1)

Arg1: Núm - o valor a ser arredondado.

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