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

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