Verificare se un numero è pari o dispari con VBScript

Home + Articoli + Numeri + Articolo # 101

Concesso in esclusiva a Mr.Webmaster. Vietata la riproduzione.

In alcune routine che hanno a che fare con i numeri può tornare comodo controllare se un numero è pari o dispari. Non esiste nativamente in VBScript, e credo nemmeno in altri linguaggi, una funzione che gestisce automaticamente questo processo, quindi ce la creiamo da noi!

Segue il codice della funzione IsUneaven (letteralmente "è dispari") che accetta come parametro il numero che va controllato

<%
    Function IsUneaven(numero)
        If IsNumeric(numero) Then
            If numero Mod 2 = 1 Then
                IsUneaven = True
            Else
                IsUneaven = False
            End If
        Else
            IsUneaven = Null
        End If
    End Function
%>

Il funzionamento è semplice: verifico che il parametro di input sia effettivamente numerico; se lo è controllo che il modulo di 2 del numero da controllare sia uguale ad uno; in questo caso vuol dire che il numero è dispari, altrimenti che è pari. In caso il parametro di input non sia un numero restituisco il valore speciale Null.

Ecco come richiamare la funzione

<%
    Response.Write IsUneaven(1) ' Restituisce True
    Response.Write IsUneaven(2) ' Restituisce False
%>

All'occorrenza può anche essere impiegata in un controllo del tipo

<%
    If IsUneaven(1) Then
        Response.Write "Numero dispari"
    Else
        Response.Write "Numero pari"
    End If
%>

Il risultato sarà "Numero dispari".

Quest'articolo è la traduzione in ASP VBScript dell'omonimo articolo Javascript scritto per Mr.Webmaster, raggiungibile all'indirizzo

Verificare se un numero è pari o dispari con Javascript

Iscriviti
Cancellati