HarryH
Level-1
- Beiträge
- 142
- Reaktionspunkte
- 4
-> Hier kostenlos registrieren
Hallo zusammen,
ich habe ein Integer welche max. den Wert 999 erreichen kann -> Also max. 3-stellig. Alle drei Stellen muss ich in je ein CHAR umwandeln. Beispiel:
#NR_Integer = 123 --> konvertieren nach -->
#Nr_Hunderter_char = '1'
#Nr_Zehner_char = '2'
#Nr_Einer_char = '3'
Ich habe das wie folgt gelöst, es erscheint mir aber irgendwie sehr umständlich. Hat jemand eine elegantere Möglichkeit?
ich habe ein Integer welche max. den Wert 999 erreichen kann -> Also max. 3-stellig. Alle drei Stellen muss ich in je ein CHAR umwandeln. Beispiel:
#NR_Integer = 123 --> konvertieren nach -->
#Nr_Hunderter_char = '1'
#Nr_Zehner_char = '2'
#Nr_Einer_char = '3'
Ich habe das wie folgt gelöst, es erscheint mir aber irgendwie sehr umständlich. Hat jemand eine elegantere Möglichkeit?
Code:
// Nummer Hunderter konvertieren
L #NR_Integer
ITD
DTR
L 1.000000e+002
/R
TRUNC
T #Nr_Hunderter_int // Zwischenspeicher
L 48
+I
T #Nr_Hunderter_char
// Nummer Zehner konvertieren
L #Nr_Hunderter_int
L 100
*I
L #NR_Integer
TAK
-I
ITD
DTR
L 1.000000e+001
/R
TRUNC
T #Nr_Zehner_int // Zwischenspeicher
L 48
+I
T #Nr_Zehner_char
// Nummer Einer konvertieren
L #NR_Integer
L 10
MOD
T #Nr_Einer_int // Zwischenspeicher
L 48
+I
T #Nr_Einer_char