Numero pari o dispari

[pegaso22]

Ciao a tutti,
c'è una funzione per verificare se un numero è pari o dispari?

Fatemi sapere.
Grazie

[kalosjo]

function odd_even(numero)
  if numero mod 2 = 0 then
    odd_even="pari"
  else
    odd_even="dispari"
  end if
end function

[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

[dizionario]

si può fare con una riga di codice

bDispari=CBool(iNumero)

[optime]

Originariamente inviato da dizionario
si può fare con una riga di codice

bDispari=CBool(iNumero)

l'unico numero pari sara' zero

[dizionario]

volevo vedere se qualcuno se ne accorgeva

bDispari=CBool(iNumero mod 2)