取得一個數字的個位、十位、百位的代碼，需要的朋友可以參考下。複製代碼代碼如下: 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
