Kontrollera så ett tal är delbart med 10 och blir heltal.

Du bör kunna göra enligt följande. Observera att det var länge sedan jag använde asp så något syntax fel kan finnas men principen skall fungera.

Function GetISP(iNumber)
    If iNumber mod 10 = 0 Then
        true
    Else
        false
    End If
End Function

nästan...:

Function GetISP(iNumber)
    If iNumber mod 10 = 0 Then
        GetISP = true
    Else
        GetISP = false
    End If
End Function

Det största felet nu är nog namnet på funktionen... :o

Function EvalDividable(iNumber)
    If iNumber mod 10 = 0 Then
        Boolean = true
    Else
        Boolean = false
    End If
End Function

Sedan kan man välja att ta in en andra parameter som bestämmer vilket tal iNumber ska vara jämt delbart med och på så vis göra funktionen mer flexibel.

Men nu har ju Compusa gjort så funktionen inte fungerar. För att returnera värdet från funktionen skriver man funktionsnamn = värde.

Som sagt var det länge sedan jag använd asp, vilket märks. Verifiera detta stycke kod @nders ;)

Function EvalDividable(iNumber)
    If iNumber mod 10 = 0 Then
        EvalDividable = true
    Else
        EvalDividable = false
    End If
End Function

Borde fjungera.

mvh

Och bara för att busa lite.... :)

Function EvalDividable(iNumber)
    EvalDividable = (iNumber mod 10 = 0)
End Function

perfa!