Discuz教程网

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

[复制链接]
authicon dly 发表于 2011-9-14 09:00:56 | 显示全部楼层 |阅读模式
  1. Function NumberSplit(num)
  2. Dim i,length
  3. length=Len(num)
  4. For i=1 To length
  5. NumberSplit=NumberSplit & num mod 10 & "," '余数
  6. num = num \ 10 '整除
  7. Next
  8. NumberSplit=Left(NumberSplit,Len(NumberSplit)-1)
  9. End Function
复制代码




上一篇:asp中获取内容中所有图片与获取内容中第一个图片的代码
下一篇:ASP中使用Set ors=oConn.Execute()时获取记录数的方法
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

1314学习网 ( 浙ICP备10214163号 )

GMT+8, 2025-5-2 10:52

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表