Calculez si une valeur numérique se situe entre deux valeurs en VBScript

Il ya quelques jours que j'ai trouvé pour travailler et utiliser le SQL entre pour vérifier qu'un paramètre de recherche a été entre deux valeurs, et j'ai réalisé qu'il pourrait être utile dans certains cas, même au sein d'une fonction comme celle de code de programmation, et pas seulement dans une chaîne de recherche sur une base de données.

A la fin, j'ai écrit une fonction qui effectue la même tâche en utilisant VBScript.

Après cette introduction, "tout en un souffle," je fais une hypothèse: J'ai choisi de mettre cet article dans côté client VBScript pour donner à chacun une chance de le tester immédiatement, mais le même code peut également être utilisé en ASP que dans Visual Basic, ou même après la même logique que j'ai suivi, il devient très facile d'écrire un en PHP, Java, Javascript ou d'autres qui, comme VBScript, n'ont pas cette fonctionnalité de manière native entre le défaut.

Voyons le code de la fonction personnalisée Entre

 Entre Fonction (MyValue, StartValue, EndValue)



    



 Si IsEmpty (MyValue) Puis



        



 Entre 0 =



    



 ElseIf IsEmpty (StartValue) Puis



        



 Entre 0 =



    



 ElseIf IsEmpty (EndValue) Puis



        



 Entre 0 =



    



 ElseIf IsNumeric (MyValue) = False Then



        



 Entre 0 =



    



 ElseIf IsNumeric (StartValue) = False Then



        



 Entre 0 =



    



 ElseIf IsNumeric (EndValue) = False Then



        



 Entre 0 =



    



 D'autre



        



 Si MyValue> = startValue et MyValue <= EndValue Puis



            



 Entre 1 =



        



 D'autre



            



 Entre 0 =



        



 End If



    



 End If







 End Function

La fonction prend trois paramètres: le premier est le nombre d'évaluer si l'inclusion ou non de la valeur de départ et la valeur cible, le deuxième et le troisième paramètre, toutefois, sont précisément les numéros de départ et de destination.

Puis, en utilisant la fonction comme suit trivialement

 



 document.write entre (1, 0, 10)

 

on vérifie que 1 est comprise entre 0 et 10, et bien sûr il est, alors le résultat sera «1» (vrai).

Dans ce cas, cependant,

 



 Entre document.write (25, 0, 10)

 

recevoir "0" (faux), parce que 23 n'est pas entre 0 et 10.

Nous continuons à examiner la fonction. Nous effectuons une série de tests conditionnels pour vérifier que les paramètres ne sont pas laissés vides et qui sont numériques.

Pour accepter ou ne pas filtrer les paramètres numériques de type string peuvent être utilisés dans la fonction personnalisée, la conversion par défaut la fonction "CInt".

Pour des raisons d'espace, j'ai mis une série de conditions pour chaque champ, mais vous pouvez utiliser une condition mince unique, séparant les contrôles individuels avec l'opérateur «ou».

Maintenant, nous allons voir une utilisation pratique de cette fonction étant testé

 Numéro de Dim, début, fin







 numéro = 1







 start = 0







 fin = 10







 Si entre (nombre, début, fin) = 1 alors



    



 D'autre



    



 End If

Plus précisément, le nombre d'évaluer la valeur de départ et les destinations des variables avec un nom significatif, à quel point je fais un bon état en utilisant notre fonction intégrée comme un filtre conditionnel.