Spočítejte si, zda je číselná hodnota je mezi dvěma hodnotami v VBScript

Před pár dny jsem našel práci a používat SQL mezi ověřit, že hledání parametr mezi dvěma hodnotami, a uvědomil jsem si, že by mohl být užitečný v některých případech dokonce i uvnitř funkce, jako je tomu programovací kód, a to nejen v vyhledávacího řetězce na databázi.

Na konci jsem napsal funkci, která plní stejný úkol pomocí VBScript.

Po tomto úvodu, "vše v jednom dechu," udělám předpoklad: Rozhodl jsem se nastavit tento článek na straně klienta VBScript, aby měl každý možnost vyzkoušet hned, ale stejný kód lze použít také v ASP, než ve Visual Basic, nebo i po stejné logiky, že jsem sledoval, je velmi snadné psát v PHP, Java, JavaScript nebo jiné, které, podobně jako VBScript, nemají tuto funkci nativně mezi standardní.

Podívejme se na kód vlastní funkce mezi

 Mezi funkce (MyValue, StartValue, EndValue)



    



 Pokud se IsEmpty (MyValue) pak



        



 V rozmezí 0 =



    



 ElseIf IsEmpty (StartValue) pak



        



 V rozmezí 0 =



    



 ElseIf IsEmpty (EndValue) pak



        



 V rozmezí 0 =



    



 ElseIf IsNumeric (MyValue) = False pak



        



 V rozmezí 0 =



    



 ElseIf IsNumeric (StartValue) = False pak



        



 V rozmezí 0 =



    



 ElseIf IsNumeric (EndValue) = False pak



        



 V rozmezí 0 =



    



 Jiný



        



 Pokud se MyValue> = StartValue A MyValue <= EndValue pak



            



 Od 1 =



        



 Jiný



            



 V rozmezí 0 =



        



 End If



    



 End If







 End Function

Funkce má tři parametry: první je číslo, včetně posouzení, zda má nebo nemá výchozí hodnoty a cílové hodnoty, druhý a třetí parametr, ale jsou přesně čísla výchozí a cílovou stanicí.

Poté pomocí funkce takto triviálně

 



 document.write mezi (1, 0, 10)

 

Ověříme, že 1 je mezi 0 a 10, a samozřejmě to je, pak výsledek bude "1" (true).

V tomto případě však

 



 Mezi document.write (25, 0, 10)

 

příjem "0" (false), protože 23 není mezi 0 a 10.

I nadále zkoumat funkce. Provádíme řadu podmíněných zkoušky, aby ověřil, že parametry nejsou prázdná, a které jsou numerické.

Chcete-li přijmout nebo ne filtrovat numerické parametry typu řetězec je možné použít v rámci vlastní funkce, funkce výchozí konverzní "CInt".

Z důvodu místa jsem postavil řadu podmínek pro jednotlivé oblasti, ale můžete použít tenký jediná podmínka, která odděluje jednotlivé kontroly s provozovatelem "nebo".

Nyní se podívejme, praktické využití této funkce byl testován

 Dim číslo, začátek, konec







 číslo = 1







 start = 0







 konec = 10







 Je-li mezi (číslo, začátek, konec) = 1 pak



    



 Jiný



    



 End If

Konkrétně se jedná o číslo ocenit hodnotu odletu a určení proměnných se smysluplným názvem, na kterém místě jsem se udělat dobrý stav pomocí naší vestavěné funkce jako podmíněné filtr.