个位数字,获取一个数字的个位、十位、百位的函数代码

复制代码 代码如下:
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

延伸阅读

• 2010-12-9-- sql数字函数,PL/SQL Number数字类型函数
• 2010-12-9-- 获取目录大小函数,获取远程文件大小的php函数
• 2010-12-30-- php获取目录,php目录操作函数之获取目录与文件的类型
• 2008-12-17-- sqlserver函数:SQL SERVER 2000 中的标识值获取函数