Υπολογίστε αν μια αριθμητική τιμή μεταξύ δύο τιμών σε VBScript

Πριν λίγες μέρες βρήκα στην εργασία και τη χρήση του SQL ΜΕΤΑΞΥ για να βεβαιωθείτε ότι μια παράμετρος αναζήτησης ήταν μεταξύ δύο τιμών, και συνειδητοποίησα ότι θα ήταν χρήσιμο σε μερικές περιπτώσεις ακόμη και μέσα σε συνάρτηση όπως αυτή της κώδικα προγραμματισμού, και όχι μόνο σε μια συμβολοσειρά αναζήτησης σε μία βάση δεδομένων.

Στο τέλος έγραψα μια λειτουργία που εκτελεί την ίδια εργασία χρησιμοποιώντας τη VBScript.

Μετά από αυτή την εισαγωγή, «όλα σε μία ανάσα," κάνω μια παραδοχή: Επέλεξα να θέσει αυτό το άρθρο στην πλευρά του πελάτη VBScript για να δώσει σε όλους την ευκαιρία να το δοκιμάσετε αμέσως, αλλά ο ίδιος κωδικός μπορεί να χρησιμοποιηθεί και σε ASP από ό, τι στη Visual Basic, ή ακόμη και με την ίδια λογική που έχω ακολουθήσει, γίνεται πολύ εύκολο να γράψει ένα στην PHP, Java, Javascript ή άλλες οι οποίες, όπως VBScript, δεν έχουν αυτή τη δυνατότητα εγγενώς μεταξύ η προεπιλογή.

Ας δούμε τον κώδικα της προσαρμοσμένης συνάρτησης Μεταξύ

 Λειτουργία Μεταξύ (MyValue, StartValue, EndValue)



    



 Αν IsEmpty (MyValue) Στη συνέχεια,



        



 Μεταξύ 0 =



    



 ElseIf IsEmpty (StartValue) Στη συνέχεια,



        



 Μεταξύ 0 =



    



 ElseIf IsEmpty (EndValue) Στη συνέχεια,



        



 Μεταξύ 0 =



    



 ElseIf IsNumeric (MyValue) = False συνέχεια



        



 Μεταξύ 0 =



    



 ElseIf IsNumeric (StartValue) = False συνέχεια



        



 Μεταξύ 0 =



    



 ElseIf IsNumeric (EndValue) = False συνέχεια



        



 Μεταξύ 0 =



    



 Αλλού



        



 Αν MyValue> = StartValue Και MyValue <= EndValue συνέχεια



            



 Μεταξύ 1 =



        



 Αλλού



            



 Μεταξύ 0 =



        



 End If



    



 End If







 Function End

Η συνάρτηση παίρνει τρεις παραμέτρους: το πρώτο είναι ο αριθμός για να αξιολογηθεί κατά πόσον συμπεριλαμβανομένης ή όχι, συμπεριλαμβανομένης της αρχικής του αξίας και της τιμής-στόχου, η δεύτερη και η τρίτη παράμετρος, όμως, είναι ακριβώς οι αριθμοί αναχώρησης και προορισμού.

Στη συνέχεια, χρησιμοποιώντας τη λειτουργία ως εξής επιπόλαια

 



 Μεταξύ document.write (1, 0, 10)

 

ελέγχουμε ότι το 1 είναι μεταξύ 0 και 10, και φυσικά δεν είναι, τότε το αποτέλεσμα θα είναι "1" (αληθές).

Στην περίπτωση αυτή, ωστόσο,

 



 Μεταξύ document.write (25, 0, 10)

 

λαμβάνουν "0" (ψευδής), επειδή 23 δεν είναι μεταξύ 0 και 10.

Θα εξακολουθήσει να εξετάζει τη λειτουργία. Έχουμε εκτελέσει μια σειρά από όρους δοκιμών προκειμένου να διαπιστωθεί ότι δεν πληρούνται οι παράμετροι παραμένουν κενά και οι οποίες είναι αριθμητικές.

Για να αποδεχτείτε ή όχι να φιλτράρει τις αριθμητικές παραμέτρους του τύπου string μπορεί να χρησιμοποιηθεί στο πλαίσιο της προσαρμοσμένης συνάρτησης, η μετατροπή προεπιλεγμένη λειτουργία "CInt".

Για λόγους χώρου έχω θέσει μια σειρά από προϋποθέσεις για κάθε τομέα, αλλά μπορείτε να χρησιμοποιήσετε μια λεπτή και μοναδική προϋπόθεση, που χωρίζει τους μεμονωμένους ελέγχους με τον φορέα εκμετάλλευσης "Ή".

Ας δούμε τώρα μια πρακτική χρήση αυτής της λειτουργίας που δοκιμάζονται

 Δημ. αριθμός, αρχή, στο τέλος







 αριθμός = 1







 έναρξη = 0







 τέλος = 10







 Αν Μεταξύ (αριθμός, αρχή, στο τέλος) = 1 Τότε



    



 Αλλού



    



 End If

Συγκεκριμένα, ο αριθμός για την αξιολόγηση της αξίας της αναχώρησης και προορισμών από τις μεταβλητές με όνομα με νόημα, σε ποιο σημείο να κάνω μια καλή κατάσταση, χρησιμοποιώντας την ενσωματωμένη λειτουργία μας ως υπό όρους φίλτρο.