獲取一個(gè)數(shù)字的個(gè)位、十位、百位的代碼，需要的朋友可以參考下。
 

Function NumberSplit(num) Dim i,length length=Len(num) For i=1 To length NumberSplit=NumberSplit & num mod 10 & "," '余數(shù) num = num / 10 '整除 Next NumberSplit=Left(NumberSplit,Len(NumberSplit)-1) End Function