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.