| |
|
|
Michael Wodrich | vérifier de angegebenen Bereichsgrenzen (alles LongInt). Min(a&,b&) - Liefert den kleineren qui beiden Werte zurück. Max(a&,b&) - Liefert den größeren qui beiden Werte zurück. InRange(Wert&,von&,bis&) - Liefert Wert& ou bien une qui Bereichsgrenzen, qui Wert ist alors sur jeden le cas dedans des angegebenen Bereiches. IsInRange(Wert&,von&,bis&) - Liefert TRUE(1) ou bien FALSE(0). Ist alors qui Abfrage, si qui Wert dedans des angegebenen Bereiches liegt. KompilierenMarqueSéparationDef 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 ▲ |
|
|
|