26 lines
565 B
Plaintext
26 lines
565 B
Plaintext
FUNCTION "FC_usint2String" : String
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
VAR_INPUT
|
|
nInNumber : USInt;
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
sTmp : String;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
// Funktion wandelt Int zu String. Im Gegensatz zu "Int_To_String" wird das "+" entfernt. Bei negativen Zahlen bleibt das "-" erhalten.
|
|
// Autor: Christian Forkl
|
|
// 28.07.2021
|
|
|
|
#sTmp := USINT_TO_STRING(#nInNumber);
|
|
IF #nInNumber >= 0 THEN
|
|
#FC_usint2String := RIGHT(IN := #sTmp, L := (LEN(#sTmp) - 1));
|
|
ELSE
|
|
#FC_usint2String := #sTmp;
|
|
END_IF;
|
|
END_FUNCTION
|
|
|