even en oneven getallen

[finrod]

Hallo ik heb een vraagje kan me iemand zeggen wat de script is voor ene if statement die kijkt of een variabele een even of oneven getal is :s

 

[Wigi]

Sub evenofoneven()
    
    Const iGetal As Integer = 5
    MsgBox IIf(iGetal Mod 2, "oneven", "even")
    
End Sub

Hier is 5 een zelf gekozen voorbeeldgetal van mij.

Wigi

 

[Wigi]

Klein alternatief:

Sub evenofoneven()
    
    Const iGetal As Integer = 5
    
    MsgBox IIf(iGetal = WorksheetFunction.even(iGetal), "even", "oneven")
    
End Sub

Wigi