Beräkna om ett numeriskt värde mellan två värden i VBScript

För några dagar sedan hittade jag till arbete i och använda SQL mellan att kontrollera att en sökparameter var mellan två värden, och jag insåg att det kan vara bra i vissa fall även inom en funktion likt programkod, och inte bara i en söksträng i en databas.

I slutet skrev jag en funktion som utför samma uppgift med hjälp av VBScript.

Efter denna inledning, "allt i ett andetag," Jag gör en förutsättning: Jag valde att sätta denna artikel i klientsidan VBScript att ge alla en chans att testa det direkt, men samma kod kan användas i ASP än i Visual Basic, eller även efter samma logik som jag har följt blir det mycket lätt att skriva en i PHP, Java, JavaScript eller andra som liksom VBScript, inte har denna funktion inbyggt mellan standard.

Låt oss se koden för den anpassade funktion mellan

 Funktion mellan (MyValue, StartValue, EndValue)



    



 Om IsEmpty (MyValue) sedan



        



 Mellan 0 =



    



 ElseIf IsEmpty (StartValue) sedan



        



 Mellan 0 =



    



 ElseIf IsEmpty (EndValue) sedan



        



 Mellan 0 =



    



 ElseIf IsNumeric (MyValue) = False sedan



        



 Mellan 0 =



    



 ElseIf IsNumeric (StartValue) = False sedan



        



 Mellan 0 =



    



 ElseIf IsNumeric (EndValue) = False sedan



        



 Mellan 0 =



    



 Else



        



 Om MyValue> = StartValue Och MyValue <= EndValue sedan



            



 Mellan 1 =



        



 Else



            



 Mellan 0 =



        



 End If



    



 End If







 End Function

Funktionen tar tre parametrar: den första är antalet att utvärdera om inklusive eller exklusive startvärdet och målvärdet, den andra och den tredje parametern, men är just antalet avgång och destination.

Sedan, med hjälp av funktionen enligt följande trivialt

 



 document.write mellan (1, 0, 10)

 

Vi kontrollerar att 1 är mellan 0 och 10, och naturligtvis är det, då resultatet kommer att bli "1" (sant).

I detta fall är dock

 



 Mellan document.write (25, 0, 10)

 

emot "0" (falskt) eftersom 23 inte är mellan 0 och 10.

Vi fortsätter att undersöka funktionen. Vi utför en serie av villkorligt test för att kontrollera att parametrarna inte lämnas tomma och som är numeriska.

Att acceptera eller inte filtrera numeriska parametrar av typen String kan användas inom den egna funktionen, funktionen standard omvandling "CInt".

Av utrymmesskäl har jag ställa en rad villkor för varje enskilt fält, men du kan använda en smal enda villkor, som skiljer den enskilde kontrollera med operatören "Eller".

Nu ska vi se en praktisk användning av denna funktion testas

 Dim-nummer, början, slutet







 antal = 1







 start = 0







 slut = 10







 Om Mellan (antal, början, slutet) = 1 Då



    



 Else



    



 End If

Specifikt till antalet utvärdera värdet av avgång och destinationer av variablerna med ett meningsfullt namn, då jag gör en gott skick med vår inbyggda funktion som en villkorlig filter.