Beregn, om en numerisk værdi er mellem to værdier i VBScript

For et par dage siden fandt jeg at arbejde i og bruge SQL MELLEM at bekræfte, at en søgning parameter var mellem to værdier, og jeg indså, at det kunne være nyttigt i nogle tilfælde endda inden for en funktion som af programkode, og ikke kun i en søgestreng på en database.

I slutningen jeg skrev en funktion, der udfører den samme opgave ved hjælp af VBScript.

Efter denne introduktion, "alt i ét åndedrag," jeg laver en forudsætning: Jeg valgte at sætte denne artikel i klientsiden VBScript til at give alle en chance for at teste det samme, men den samme kode kan også bruges i ASP end i Visual Basic, eller selv efter den samme logik, som jeg har fulgt, bliver det meget let at skrive en i PHP, Java, Javascript eller andre, der ligesom VBScript, ikke har denne funktion indbygget mellem standard.

Lad os se koden for den brugerdefinerede funktion mellem

 Funktion Mellem (minVaerdi, StartValue, EndValue)



    



 Hvis isEmpty (minVaerdi) Derefter



        



 Mellem 0 =



    



 ElseIf isEmpty (StartValue) Derefter



        



 Mellem 0 =



    



 ElseIf isEmpty (EndValue) Derefter



        



 Mellem 0 =



    



 ElseIf IsNumeric (minVaerdi) = False Derefter



        



 Mellem 0 =



    



 ElseIf IsNumeric (StartValue) = False Derefter



        



 Mellem 0 =



    



 ElseIf IsNumeric (EndValue) = False Derefter



        



 Mellem 0 =



    



 Else



        



 Hvis minVaerdi> = StartValue Og minVaerdi <= EndValue Derefter



            



 Mellem 1 =



        



 Else



            



 Mellem 0 =



        



 End If



    



 End If







 End Function

Funktionen tager tre parametre: det første er antallet at vurdere, hvorvidt herunder eller ej inklusive startværdi og målværdien, den anden og den tredje parameter, er imidlertid netop antallet af afgangs-og bestemmelsesstedet.

Derefter bruger funktionen som følger trivielt

 



 document.write Mellem (1, 0, 10)

 

vi kontrollere, at 1 er mellem 0 og 10, og selvfølgelig er det, så vil resultatet være "1" (sand).

I dette tilfælde er det imidlertid

 



 Mellem document.write (25, 0, 10)

 

modtage "0" (falsk), fordi 23 ikke er mellem 0 og 10.

Vi fortsætter med at undersøge funktionen. Vi udfører en række af betingede test for at kontrollere, at parametrene ikke er tomme, og som er numerisk.

For at acceptere eller ikke at filtrere den numeriske parametre af typen streng kan bruges inden for brugerdefinerede funktion, funktionen standard konvertering "Cint".

Af hensyn til plads, jeg har sat en række betingelser for hvert enkelt felt, men du kan bruge en slank enkelt betingelse, der adskiller de enkelte kontrol med operatøren "eller".

Lad os nu se en praktisk anvendelse af denne funktion bliver testet

 Dim nummer, start, slut







 nummer = 1







 start = 0







 ende = 10







 Hvis Mellem (antal, start, slut) = 1 Derefter



    



 Else



    



 End If

Specifikt til det nummer vurdere værdien af ​​afgangs-og bestemmelsesstederne for det pågældende variabler med et meningsfuldt navn, på hvilket tidspunkt jeg laver en god stand ved hjælp af vores indbyggede funktion som et betinget filter.