Sayısal bir değer VBScript iki değer arasında olup olmadığını hesaplama

Birkaç gün önce ben çalışma ve bir arama parametresi iki değer arasında olduğunu doğrulamak için SQL ARASINDA kullanmak buldum ve hatta olduğu gibi bir işlev içinde bazı durumlarda yararlı olabilir fark programlama kodu ve sadece bir veritabanı üzerinde arama dize.

Sonunda VBScript kullanarak aynı görevi yapan bir işlevi yazdı.

Bu girişten sonra, "bir nefes tüm," Ben bir öncül olun: Herkesin hemen test etmek için bir şans vermek için istemci tarafı VBScript Bu makalenin ayarlamak için seçti, ama aynı kod da Visual Basic göre ASP kullanılabilir, ya da ben bile takip sahip olduğu aynı mantık şu, bu VBScript gibi, yerel varsayılan arasındaki bu özellik yok, PHP, Java, JavaScript veya başka bir yazmak çok kolay hale geldi.

Diyelim arasında özel fonksiyon kodu görmek

 Arasında İşlevi (myValue, StartValue, EndValue)



    



 Daha sonra IsEmpty (myValue)



        



 0 = arasında



    



 Sonra ElseIf IsEmpty (StartValue)



        



 0 = arasında



    



 Sonra ElseIf IsEmpty (EndValue)



        



 0 = arasında



    



 Sonra ElseIf IsNumeric (myValue) = False



        



 0 = arasında



    



 Sonra ElseIf IsNumeric (StartValue) = False



        



 0 = arasında



    



 Sonra ElseIf IsNumeric (EndValue) = False



        



 0 = arasında



    



 Başka



        



 Eğer myValue> = StartValue Ve myValue <= EndValue Sonra



            



 1 arası =



        



 Başka



            



 0 = arasında



        



 End If



    



 End If







 End Function

Fonksiyon üç parametre alır: İlk dahil ya da başlangıç ​​değeri ve hedef değeri, ikinci ve üçüncü parametre dahil olup olmadığını, ancak, tam kalkış ve varış numaraları değerlendirmek için sayıdır.

Daha sonra, işlevini kullanarak olarak trivially aşağıdaki

 



 document.write arası (1, 0, 10)

 

biz 1 0 ile 10 arasında olup olmadığını kontrol edin, ve tabii ki sonuç (true) "1" olacak o zaman vardır.

Bu durumda, ancak,

 



 Document.write arasında (25, 0, 10)

 

23 0 ile 10 arasında olmadığı için "0" (yanlış) alırsınız.

Biz işlevi incelemeye devam ediyor. Bu parametreler boş bırakılır ve sayısal hangi olmadığını doğrulamak için koşullu bir dizi test gerçekleştirin.

Kabul etmek ya da dize türünde sayısal parametreleri işlevi varsayılan dönüşüm "CInt", özel bir işlev içinde kullanılabilir filtre değil.

Alan nedenlerden dolayı ben her alan için bir dizi şart belirledik, ancak operatör "Or" ile tek tek kontrol ayıran, ince tek koşul kullanabilirsiniz.

Şimdi bu fonksiyonu test edilen bir pratik kullanımı bakalım

 Dim sayı, başlangıç, bitiş







 sayı = 1







 = 0 başlangıç







 son = 10







 Daha sonra (sayı, başlangıç, bitiş) = 1 arasında ise



    



 Başka



    



 End If

Özellikle, sayı çıkış değeri ve bir koşullu filtre olarak yerleşik işlevini kullanarak bir iyi durumda yapmak bu noktada anlamlı bir ad ile değişkenlerin yer değerlendirmektir.