| |
|
|
Michael Wodrich | Verify of angegebenen Bereichsgrenzen (everything LongInt). mins(a&,b&) - supply whom smaller the both values back. Max(a&,b&) - supply whom more the both values back. InRange(Wert&,von&,bis&) - supply Wert& or a the Bereichsgrenzen, the worth is means In any drop inside the angegebenen Bereiches. IsInRange(Wert&,von&,bis&) - supply TRUE(1) or FALSE(0). So The request, whether the worth inside the angegebenen Bereiches lying. CompileMarkSeparationDef 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. | 05/12/04 ▲ |
|
|
|