Hallo,

hier ist meine Art eine 5 Stellige Zahl zu zerlegen. Dieser Code ist recht schnell.
Code:
Dim Az As Word
Dim Ah As Word
Dim Ata As Word
Dim Azt As Word

Dim Einer As Byte
Dim Zehner As Byte
Dim Hunderter As Byte
Dim Tausender As Byte
Dim Zehntausender As Byte At Azt Overlay

Dim Temp As Word
Dim A As Word



A = 54321



Az = A / 10
Ah = A / 100
Ata = A / 1000
Azt = A / 10000

Temp = Azt * 10
Tausender = Ata - Temp

Temp = Ata * 10
Hunderter = Ah - Temp

Temp = Ah * 10
Zehner = Az - Temp

Temp = Az * 10
Einer = A - Temp


End
lg
Günter