Получите код единиц, десятков и сотен цифр числа. Друзья, которым он нужен, могут обратиться к нему. Скопируйте код кода следующим образом:
ФункцияNumberSplit(число)
Дим я, длина
длина = Len (число)
Для i=1 К длине
NumberSplit=NumberSplit & num mod 10 & , 'остаток
num = число / 10 'делимый
Следующий
NumberSplit=Влево(NumberSplit,Len(NumberSplit)-1)
Конечная функция