木子屋
 

标题: 获取一个数字的个位、十位、百位

作者: dnawo

日期: 2010-10-15 06:21 PM

分类: Web编程

内容: 复制内容到剪贴板 程序代码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

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.035 ms

标题: 获取一个数字的个位、十位、百位

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.035 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.035 ms