Zwischen 2 Variablen (To)?
Zwischen 2 Variablen (To)?
Gibt es eigendlich eine Möglichkeit zu prüfen ob eine Variable zwischen 2 Werten ist?
Z.b. so:
If VARIABLE between WERT-A to WERT-B
- Scheint jedoch nirgends dokumentiert zu sein -
Falls es sowas gibt, ist dies Version 3.30 tauglich?
Z.b. so:
If VARIABLE between WERT-A to WERT-B
- Scheint jedoch nirgends dokumentiert zu sein -
Falls es sowas gibt, ist dies Version 3.30 tauglich?



Intel Pentium 4 630 (3 GHZ)
- Milchshake
- Beiträge: 166
- Registriert: 30.01.2006 17:47
- Wohnort: Zwischen dem Sessel und dem Computer
schreibt dir doch n Procedure:
Code: Alles auswählen
Procedure Between(Vaiable, Wert1, Wert2)
If Wert1 > Wert2
If Vaiable > Wert2 And Vaiable < Wert1
ProcedureReturn 1
EndIf
Else
If Vaiable > Wert1 And Vaiable < Wert2
ProcedureReturn 1
EndIf
EndIf
EndProcedure
Debug Between(6, 3, 7)
Debug Between(6, 7, 3)
Debug Between(-6, 3, 7)
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Darf's auch ein bisschen weniger Code und mehr Eleganz sein?
Außerdem hat STARGATE einen Fehler gemacht, seine Prozedur deckt keine Fälle ab, in denen Wert=A=B ist!

Außerdem hat STARGATE einen Fehler gemacht, seine Prozedur deckt keine Fälle ab, in denen Wert=A=B ist!
Code: Alles auswählen
Procedure Between(Wert, A, B)
If A <= B
If A <= Wert And Wert <= B
ProcedureReturn 1
EndIf
Else
ProcedureReturn Between(Wert, B, A)
EndIf
EndProcedure
Debug Between(6, 3, 7)
Debug Between(6, 7, 3)
Debug Between(-6, 3, 7)
Debug Between(6, 6, 6) ; Muss auch 1 ergeben
PB 4.30
Code: Alles auswählen
Macro Happy
;-)
EndMacro
Happy End