API gesucht

[Vigi]

Hallo,

ich bin auf der Suche nach einer Möglichkeit, zu prüfen, ob eine Zahl nachkomma stellen hat. Daraufhin soll eine Bezugszahl geändert werden.
Bei z.B. 1,4 o. 13,14 -> *IN50 = *ON (da kommastelle (4 o. 14))
Bei z.B. 1,0 o. 18,00 -> *IN50 = *OFF (keine Kommastelle bzw nur 0 hinterm Komma)
Gibt es so eine Funktion?

[Pikachu]

Probiers mal so:

DZAHL             S             10S 2 INZ(1,5)                         
DZAHL0            S             10S 0 INZ                              
D**********************************************************************
C     *ZERO         ADD       ZAHL          ZAHL0                      
C     ZAHL0         COMP      ZAHL                               5050  
C                   SETON                                            LR 

[B.Hauser]

Wie wäre es damit:

 /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

[Vigi]

Danke für die schnellen Antworten!
Beide Möglichkeiten funktionieren.
Habe mich für Birgitta Antwort entschieden
So sieht das dann aus:
/free
*IN79 = *OFF;
*IN79 = (HILF2 = %Int(HILF2));
/end-free

1000 Dank!

[Fuerchau]

Das vorherige Ausschalten kannst du dir sparen, da das Ergebnis des Vergleiches *OFF oder *ON ist.