获取一个数字的个位、十位、百位的函数代码
更新时间:2010年12月22日 23:04:34 作者:
获取一个数字的个位、十位、百位的代码,需要的朋友可以参考下。
复制代码 代码如下:
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
相关文章
asp下sql和access数据库随机取10条记录的代码newid()
利于搜索从表中随机取几条不重复记录,一般都是10条,我就用了40条,大约的代码就是下面的了2007-12-12
最新评论