Berekenen of een numerieke waarde ligt tussen de twee waarden in VBScript

Een paar dagen geleden vond ik aan het werk in en de SQL TUSSEN om te controleren of een zoekparameter was tussen twee waarden te gebruiken, en ik realiseerde me dat nuttig kan zijn in sommige gevallen zelfs binnen een functie als die van programmeercode, en niet alleen in een zoekterm in een database.

Aan het eind schreef ik een functie die dezelfde taak met behulp van VBScript uitvoert.

Na deze inleiding, "alles in een adem:" Ik maak een vooronderstelling: Ik koos ervoor om dit artikel in client-side VBScript ingesteld om iedereen een kans geven om meteen te testen, maar dezelfde code kan ook worden gebruikt in ASP dan in Visual Basic, of zelfs volgens dezelfde logica die ik heb gevolgd, wordt het heel gemakkelijk om te schrijven een in PHP, Java, JavaScript of andere die, net als VBScript, niet over deze functie native tussen de standaard.

Laten we eens kijken van de code van de aangepaste functie tussen

 Functie tussen (MyValue, StartValue, EndValue)



    



 Als IsEmpty (MyValue) Dan



        



 Tussen 0 =



    



 ElseIf IsEmpty (StartValue) Dan



        



 Tussen 0 =



    



 ElseIf IsEmpty (EndValue) Dan



        



 Tussen 0 =



    



 ElseIf IsNumeric (MyValue) = False dan



        



 Tussen 0 =



    



 ElseIf IsNumeric (StartValue) = False dan



        



 Tussen 0 =



    



 ElseIf IsNumeric (EndValue) = False dan



        



 Tussen 0 =



    



 Anders



        



 Als MyValue> = StartValue En MyValue <= EndValue Dan



            



 Tussen 1 =



        



 Anders



            



 Tussen 0 =



        



 End If



    



 End If







 End Function

De functie heeft drie parameters: de eerste is het aantal te beoordelen of inclusief of exclusief de beginwaarde en de streefwaarde, de tweede en de derde parameter, echter juist zijn de aantallen van vertrek en bestemming.

Dan, met behulp van de functie als volgt triviaal

 



 document.write tussen (1, 0, 10)

 

we controleren dat een is tussen 0 en 10, en natuurlijk is, dan zal het resultaat "1" (waar).

In dit geval echter,

 



 Tussen document.write (25, 0, 10)

 

ontvangen "0" (false), omdat 23 niet tussen 0 en 10.

We blijven om de functie te onderzoeken. Wij voeren een reeks van voorwaardelijke testen om te controleren of de parameters niet leeg zijn linker-en die zijn numerieke.

Te accepteren of niet om te filteren de numerieke parameters van het type string kan worden gebruikt in de aangepaste functie, de functie standaard conversie "CInt".

Om redenen van ruimte die ik hebben een reeks voorwaarden voor elk afzonderlijk veld, maar u kunt een slanke enkele voorwaarde te gebruiken, het scheiden van de individuele controles met de operator "Or".

Laten we nu eens een praktisch gebruik van deze functie wordt getest te zien

 Dim getal, begin, einde







 nummer = 1







 start = 0







 end = 10







 Als Tussen (aantal, begin, eind) = 1 dan



    



 Anders



    



 End If

In het bijzonder, om het nummer te beoordelen van de waarde van vertrek en bestemming van de variabelen met een betekenisvolle naam, waarna ik een goede conditie met behulp van onze ingebouwde functie als een voorwaardelijke filter.