Beregne om et numerisk verdi er mellom to verdier i VBScript

For noen dager siden fant jeg å jobbe i og bruke SQL MELLOM å bekrefte at et søk parameter var mellom to verdier, og jeg skjønte det kunne være nyttig i noen tilfeller selv innenfor en funksjon som det av programmeringskode, og ikke bare i en søkestreng på en database.

På slutten skrev jeg en funksjon som utfører samme oppgave ved hjelp av VBScript.

Etter denne innledningen, "alt i ett åndedrag," Jeg gjør en premiss: Jeg valgte å sette denne artikkelen i klientsiden VBScript å gi alle en sjanse til å teste det umiddelbart, men den samme koden kan også brukes i ASP enn i Visual Basic, eller selv følge samme logikk som jeg har fulgt, blir det svært enkelt å skrive en i PHP, Java, Javascript eller andre som i likhet med VBScript, ikke har denne funksjonen innebygd mellom standard.

La oss se koden for den egendefinerte funksjon mellom

 Funksjon Between (MyValue, StartValue, EndValue)



    



 Hvis IsEmpty (MyValue) Så



        



 Mellom 0 =



    



 ElseIf IsEmpty (StartValue) Så



        



 Mellom 0 =



    



 ElseIf IsEmpty (EndValue) Så



        



 Mellom 0 =



    



 ElseIf IsNumeric (MyValue) = False Deretter



        



 Mellom 0 =



    



 ElseIf IsNumeric (StartValue) = False Deretter



        



 Mellom 0 =



    



 ElseIf IsNumeric (EndValue) = False Deretter



        



 Mellom 0 =



    



 Else



        



 Hvis MyValue> = StartValue Og MyValue <= EndValue Deretter



            



 Mellom 1 =



        



 Else



            



 Mellom 0 =



        



 End If



    



 End If







 End Function

Funksjonen tar tre parametre: den første er antallet å vurdere hvorvidt inkludert eller ikke inkludert startverdien og målet verdi, den andre og den tredje parameteren, derimot, er nettopp tallene for avreise og destinasjon.

Deretter bruker funksjonen slik trivially

 



 document.write mellom (1, 0, 10)

 

vi sjekke at 1 er mellom 0 og 10, og selvfølgelig er det, så resultatet vil være "1" (sann).

I dette tilfellet er imidlertid

 



 Mellom document.write (25, 0, 10)

 

får "0" (false) fordi 23 ikke er mellom 0 og 10.

Vi fortsetter å undersøke funksjonen. Vi utfører en rekke betinget tester for å kontrollere at parametrene ikke er tomme og hvilke som er numerisk.

Å akseptere eller ikke å filtrere numeriske parametre av typen string kan brukes innenfor de egendefinerte funksjonen, funksjonen default konvertering "Cint".

Grunnet plassmangel har jeg satt en rekke betingelser for hvert enkelt felt, men du kan bruke en slank enkelt tilstand, skiller den enkelte sjekker med operatøren "Or".

La oss nå se en praktisk bruk av denne funksjonen blir testet

 Dim nummer, start, slutt







 nummer = 1







 start = 0







 end = 10







 Hvis Between (antall, start, slutt) = 1 Så



    



 Else



    



 End If

Spesielt til antall vurdere verdien av avreise og destinasjoner av variablene med et meningsfullt navn, noe som medførte at jeg gjør en god tilstand ved hjelp av vår innebygd funksjon som en betinget filter.