Apskaičiuokite, ar skaitinė vertė yra tarp dviejų verčių VBScript

Prieš kelias dienas radau dirbti ir naudoti SQL TARP patikrinti, ar paieškos parametras buvo tarp dviejų verčių, ir aš supratau, kad tai gali būti naudinga kai kuriais atvejais net ir patinka, kad funkcija programavimo kodą, o ne tik į paieškos eilutę į duomenų bazę.

Pabaigoje parašiau funkcija atlieka tą pačią užduotį naudojant VBScript.

Po šios įžangos, "visi vienu atsikvėpimu", darau prielaidą: "Aš pasirinko nustatyti šio kliento pusėje VBScript straipsnį suteikti kiekvienam galimybę išbandyti jį iš karto, bet tą patį kodą galima naudoti ASP kaip Visual Basic, arba netgi po ta pačia logika, kad turiu laikytis, ji tampa labai lengva rašyti viena iš PHP, Java, JavaScript, arba kitas, kuris, kaip ir VBScript, neturi šios funkcijos gimtoji tarp įsipareigojimų neįvykdymo.

Pažiūrėkime į funkcija individualizuotos kodą tarp

 Funkcija tarp (MyValue, StartValue, EndValue)



    



 Jei IsEmpty (MyValue) Tada



        



 Nuo 0 =



    



 ElseIf IsEmpty (StartValue) Tada



        



 Nuo 0 =



    



 ElseIf IsEmpty (EndValue) Tada



        



 Nuo 0 =



    



 ElseIf IsNumeric (MyValue) = False Tada



        



 Nuo 0 =



    



 ElseIf IsNumeric (StartValue) = False Tada



        



 Nuo 0 =



    



 ElseIf IsNumeric (EndValue) = False Tada



        



 Nuo 0 =



    



 Kitas



        



 Jei MyValue> = StartValue Ir MyValue <= EndValue Tada



            



 Nuo 1 =



        



 Kitas



            



 Nuo 0 =



        



 End If



    



 End If







 End Function

Ši funkcija trunka tris parametrus: pirma yra numeris įvertinti, ar taip pat, ar ne, įskaitant pradinės vertės ir siektinos vertės, antrojo ir trečiojo parametrų, tačiau yra tiksliai išvykimo ir paskirties numerius.

Tada, naudodami funkciją taip funkcionalumą lengvai

 



 document.write tarp (1, 0, 10)

 

mes tikriname, kad 1 yra tarp 0 ir 10, ir, žinoma, jis yra, tada rezultatas bus "1" (TRUE).

Šiuo atveju, tačiau

 



 Tarp document.write (25, 0, 10)

 

gauna "0" (klaidinga), nes 23 yra ne tarp 0 ir 10.

Mes ir toliau nagrinėti funkcija. Mes atliekame sąlyginio bandymų serija, kad patikrintų, ar parametrai nėra paliekami tušti ir kurios yra skaitmeninės.

Norėdami priimti ar ne filtras skaitmeninio parametrai tipo eilutė gali būti naudojama per užsakymą funkcija, funkcija pagal nutylėjimą atsivertimas "CInt".

Dėl vietos aš turiu nustatyti sąlygas kiekvienam srityje serija, tačiau galite naudoti plonas vieno būklę, atskirti individualių patikrinimus su operatoriumi "arba".

Dabar pažiūrėkime praktiškai taikyti šios funkcijos yra išbandytos

 Dim skaičių, pradžią, pabaigą







 numeris = 1







 start = 0







 pabaigos = 10







 Jei tarp (skaičius, pradžia, pabaiga) = 1 Tada



    



 Kitas



    



 End If

Konkrečiai, skaičius įvertinti išvykimo vertės ir paskirties su prasmingą pavadinimą, tuomet aš galiu geros būklės naudojantis mūsų built-in funkcija priklauso filtras kintamųjų.