| |
| |
|
Michael
Wodrich | Prüfen von angegebenen Bereichsgrenzen (alles LongInt).
 Min(a&,b&) - Liefert den kleineren der beiden Werte zurück.
Max(a&,b&) - Liefert den größeren der beiden Werte zurück.
InRange(Wert&,von&,bis&) - Liefert Wert& oder eine der Bereichsgrenzen, der Wert ist also auf jeden Fall innerhalb des angegebenen Bereiches.
IsInRange(Wert&,von&,bis&) - Liefert TRUE(1) oder FALSE(0).
Ist also die Abfrage, ob der Wert innerhalb des angegebenen Bereiches liegt.
KompilierenMarkierenSeparierenDef Min(2) @If(LT(@&(1),@&(2)), @&(1), @&(2))
Def Max(2) @If(GT(@&(1),@&(2)), @&(1), @&(2))
Def InRange(3) Min(Max(@&(1),@&(2)),@&(3))
Def IsInRange(3) If(@Equ(@&(1),InRange(@&(1),@&(2),@&(3))),1,0)pre>
MfG
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 12.05.2004 ▲ |
|
| |
|
(908)
Deutsch
English
Français
Español
Italia