Berechnen Sie, ob ein numerischer Wert zwischen zwei Werten in VBScript ist

Vor ein paar Tagen fand ich die Arbeit in und mit der SQL ZWISCHEN um sicherzustellen, dass eine Suche Parameter zwischen zwei Werten war, und ich merkte, es könnte in einigen Fällen nützlich, auch innerhalb einer Funktion wie die Programmcode, und zwar nicht nur in einem Suchbegriff auf einer Datenbank.

Am Ende schrieb ich eine Funktion, die die gleiche Aufgabe mit VBScript ausführt.

Nach dieser Einleitung, "alle in einem Atemzug:" Ich mache eine Prämisse: Ich habe diesen Artikel in clientseitige VBScript setzen zu geben jedem eine Chance, ihn sofort zu testen, aber den gleichen Code kann auch in ASP als in Visual Basic verwendet werden, oder auch nach der gleichen Logik, dass ich gefolgt bin, wird es sehr einfach, ein in PHP, Java, Javascript oder andere, die wie VBScript, die nicht über diese Funktion nativ zwischen der Standard zu schreiben.

Mal sehen, den Code des benutzerdefinierten Funktion zwischen

 Funktion zwischen (MyValue, StartValue, EndValue)



    



 Wenn IsEmpty (MyValue) Then



        



 Zwischen 0 =



    



 ElseIf IsEmpty (StartValue) Then



        



 Zwischen 0 =



    



 ElseIf IsEmpty (EndValue) Then



        



 Zwischen 0 =



    



 ElseIf IsNumeric (MyValue) = False Then



        



 Zwischen 0 =



    



 ElseIf IsNumeric (StartValue) = False Then



        



 Zwischen 0 =



    



 ElseIf IsNumeric (EndValue) = False Then



        



 Zwischen 0 =



    



 Sonst



        



 Wenn MyValue> = StartValue Und MyValue <= EndValue Dann



            



 Zwischen 1 =



        



 Sonst



            



 Zwischen 0 =



        



 End If



    



 End If







 End Function

Die Funktion übernimmt drei Parameter: die erste ist die Anzahl zu beurteilen, ob mit oder ohne den Startwert und dem Zielwert, der zweite und der dritte Parameter sind jedoch genau die Zahl der Abgangs-und Bestimmungsort.

Dann mit der Funktion wie folgt trivialerweise

 



 document.write Zwischen (1, 0, 10)

 

Wir prüfen, ob 1 zwischen 0 und 10 ist, und natürlich ist es, dann wird das Ergebnis "1" (true).

In diesem Fall jedoch,

 



 Zwischen document.write (25, 0, 10)

 

erhalten "0" (false), weil 23 nicht zwischen 0 und 10.

Wir werden weiterhin die Funktion zu untersuchen. Wir führen eine Reihe von bedingten Tests zu überprüfen, dass die Parameter nicht leer und die numerisch sind.

Zu akzeptieren oder nicht zu filtern die numerischen Parameter vom Typ String in der benutzerdefinierten Funktion verwendet werden kann, wird die Funktion standardmäßig conversion "CInt".

Aus Platzgründen habe ich eine Reihe von Bedingungen für jedes einzelne Feld gesetzt, aber Sie können eine schlanke einzige Bedingung verwenden, die Trennung der einzelnen Prüfungen mit dem Operator "OR".

Nun wollen wir eine praktische Verwendung dieser Funktion getestet sehen

 Dim Anzahl, Beginn, Ende







 Anzahl = 1







 start = 0







 Ende = 10







 Wenn Between (Anzahl, Beginn, Ende) = 1 dann



    



 Sonst



    



 End If

Genauer gesagt, um die Anzahl bewerten den Wert der Abfahrts-und Zielorte der Variablen mit einem aussagekräftigen Namen, an welcher Stelle ich einen guten Zustand mit unserem integrierten Funktion als Bedingung filtern.