Holen Sie sich den Code für die Einer-, Zehner- und Hunderterstellen einer Zahl. Freunde, die ihn benötigen, können sich darauf beziehen. Kopieren Sie den Codecode wie folgt:
FunctionNumberSplit(num)
Dim i, Länge
Länge = Länge (Anzahl)
Für i=1 bis Länge
NumberSplit=NumberSplit & num mod 10 & , 'Rest
num = num / 10 'Teilbar
Nächste
NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)
Funktion beenden