您现在的位置是:网站首页> 编程资料编程资料

获取一个数字的个位、十位、百位的函数代码_应用技巧_

2023-05-25 381人已围观

简介 获取一个数字的个位、十位、百位的函数代码_应用技巧_

复制代码 代码如下:

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

-六神源码网