获取一个数字的个位、十位、百位的代码,需要的朋友可以参考下。

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

作者: 来源: 时间: 17-11-23 16:05:17

代码如下:
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
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们