Wie wäre es damit:

Code:
 /Free
    *IN50 = (MyNum  = %Int(MyNum));
    *IN51 = (MyNum <> %Int(MyNum));
*IN50 wird auf *ON gesetzt, wenn MyNum keine Nachkommastellen hat.
*IN51 wird auf *ON gesetzt, wenn MyNum Nachkommastellen hat.

Birgitta