Calcular se um valor numérico é entre dois valores em VBScript

Alguns dias atrás eu encontrei para trabalhar e usar o SQL ENTRE para verificar se um parâmetro de pesquisa foi entre dois valores, e eu percebi que poderia ser útil em alguns casos, até mesmo dentro de uma função como a de código de programação, e não apenas em uma seqüência de pesquisa em um banco de dados.

No final eu escrevi uma função que executa a mesma tarefa usando VBScript.

Após esta introdução, "tudo em um só fôlego:" Faço uma premissa: que eu escolhi para definir este artigo no lado do cliente VBScript para dar a todos a chance de testá-lo imediatamente, mas o mesmo código também pode ser usado em ASP do que em Visual Basic, ou mesmo seguindo a mesma lógica que tenho seguido, torna-se muito fácil escrever um em PHP, Java, Javascript ou outros que, como VBScript, não tem esse recurso nativamente entre o padrão.

Vamos ver o código da função personalizada Entre

 Entre função (MyValue, StartValue, EndValue)



    



 Se IsEmpty (MyValue) Then



        



 Entre 0 =



    



 ElseIf IsEmpty (StartValue) Then



        



 Entre 0 =



    



 ElseIf IsEmpty (EndValue) Then



        



 Entre 0 =



    



 ElseIf IsNumeric (MyValue) = False Then



        



 Entre 0 =



    



 ElseIf IsNumeric (StartValue) = False Then



        



 Entre 0 =



    



 ElseIf IsNumeric (EndValue) = False Then



        



 Entre 0 =



    



 Outro



        



 Se MyValue> = StartValue E MyValue <= Então EndValue



            



 Entre 1 =



        



 Outro



            



 Entre 0 =



        



 End If



    



 End If







 End Function

A função recebe três parâmetros: o primeiro é o número para avaliar se incluindo ou não o valor inicial eo valor-alvo, o segundo eo terceiro parâmetro, no entanto, são precisamente os números de partida e de destino.

Então, usando a função da seguinte trivialmente

 



 Entre document.write (1, 0, 10)

 

nós verificamos que um está entre 0 e 10, e é claro que é, então o resultado será "1" (verdadeiro).

Neste caso, no entanto,

 



 Entre document.write (25, 0, 10)

 

receber "0" (false) porque 23 não está entre 0 e 10.

Continuamos a analisar a função. Realizamos uma série de testes condicionais para verificar se os parâmetros não são deixados em branco e que são numéricos.

Para aceitar ou não para filtrar os parâmetros numéricos do tipo string pode ser usado dentro da função personalizada, a conversão padrão função "CInt".

Por razões de espaço que tenho posto uma série de condições para cada campo individual, mas você pode usar uma condição única magro, separando as verificações individuais com o operador "ou".

Agora vamos ver um uso prático desta função está sendo testado

 Número Dim, início, fim







 = número um







 start = 0







 final = 10







 Entre se (número, início, fim) = 1 Então



    



 Outro



    



 End If

Especificamente, o número de avaliar o valor de partida e destinos das variáveis ​​com um nome significativo, altura em que faço uma boa condição usando nossa função built-in como um filtro condicional.