首页 > 编程 > ASP > 正文

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

2024-05-04 10:59:59
字体:
来源:转载
供稿:网友
复制代码 代码如下:
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
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表