Numero pari o dispari

[Shagrat]

non credo ma per farla ci vogliono 30 sec

'restituisce true se è pari false se è dispari
function pariDispari(numero)

  dim ris = false
  
  if numero mod 2 = 0 then
    ris = true
  end if
 
  pariDispari = ris

end function