Obtenez le code des chiffres des unités, des dizaines et des centaines d'un nombre. Les amis qui en ont besoin peuvent s'y référer. Copiez le code comme suit :
FonctionNumberSplit (num)
Dim i, longueur
longueur=Len(num)
Pour i=1 À longueur
NumberSplit=NumberSplit & num mod 10 & , 'reste
num = num / 10 'Divisible
Suivant
NumberSplit=Gauche(NumberSplit,Len(NumberSplit)-1)
Fonction de fin