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