Calcular si un valor numérico se encuentra entre dos valores en VBScript

Hace unos días me encontré con el trabajo y el uso del SQL ENTRE para comprobar que un parámetro de búsqueda fue entre dos valores, y me di cuenta de que podría ser útil en algunos casos incluso dentro de una función como la de código de programación, y no sólo en una cadena de búsqueda en una base de datos.

Al final escribí una función que realiza la misma tarea utilizando VBScript.

Después de esta introducción, "todo de un tirón:" Yo hago una premisa: que optó por establecer este artículo en VBScript del lado del cliente para dar a todos la oportunidad de probarlo de inmediato, pero el mismo código también se puede utilizar en ASP que en Visual Basic, o incluso siguiendo la misma lógica que he seguido, es muy fácil escribir uno en PHP, Java, Javascript o de otra índole, como VBScript, no tienen esta característica de forma nativa entre el valor por defecto.

Vamos a ver el código de la función personalizada entre

 Entre la función (MyValue, StartValue, EndValue)



    



 Si IsEmpty (MyValue) Entonces



        



 Entre 0 =



    



 ElseIf IsEmpty (StartValue) Entonces



        



 Entre 0 =



    



 ElseIf IsEmpty (EndValue) Entonces



        



 Entre 0 =



    



 ElseIf IsNumeric (MyValue) = False Then



        



 Entre 0 =



    



 ElseIf IsNumeric (StartValue) = False Then



        



 Entre 0 =



    



 ElseIf IsNumeric (EndValue) = False Then



        



 Entre 0 =



    



 Más



        



 Si MyValue> = StartValue Y MyValue <= EndValue Entonces



            



 Entre el 1 =



        



 Más



            



 Entre 0 =



        



 End If



    



 End If







 End Function

La función toma tres parámetros: el primero es el número de evaluar si incluir o no el valor inicial y el valor objetivo, el segundo y el tercer parámetro, sin embargo, son precisamente los números de partida y destino.

Luego, utilizando la función de la siguiente manera trivial

 



 Entre document.write (1, 0, 10)

 

comprobamos que uno se encuentra entre 0 y 10, y por supuesto lo es, entonces el resultado será "1" (verdadero).

En este caso, sin embargo,

 



 Entre document.write (25, 0, 10)

 

recibir "0" (falso), porque 23 no es entre 0 y 10.

Seguimos para examinar la función. Llevamos a cabo una serie de pruebas condicionales para verificar que los parámetros no están vacíos y que son numéricos.

De aceptar o no filtrar los parámetros numéricos de tipo cadena se puede utilizar dentro de la función personalizada, la conversión por defecto la función "CInt".

Por razones de espacio he puesto una serie de condiciones para cada campo individual, pero puede utilizar una sola condición delgada, que separa los cheques individuales con el operador "O".

Ahora vamos a ver un uso práctico de esta función se está probando

 Número Dim, inicio, fin







 = número 1







 start = 0







 final = 10







 Si entre (número, inicio, fin) = 1 entonces



    



 Más



    



 End If

En concreto, el número de evaluar el valor de partida y los destinos de las variables con un nombre significativo, momento en el que hago un buen uso de nuestra función incorporada como un filtro condicional.