| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 700 人关注过本帖
标题:怎么使数字保持四位?
只看楼主 加入收藏
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
结帖率:66.67%
收藏
 问题点数:0 回复次数:6 
怎么使数字保持四位?
我这边有数字生成,比如:12,要把它变成0012,134变成0134,7 变成0007,有什么函数可以实现啊?
搜索更多相关主题的帖子: 数字 
2008-04-21 16:23
21411
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2008-1-10
收藏
得分:0 
用format()函数吧,详细的上百度找找。
2008-04-21 17:11
ysm140
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2008-3-27
收藏
得分:0 
right("0000"&cstr(num),4)

num为你的数字
收到的鲜花
  • 永夜的极光2008-04-21 18:38 送鲜花  8朵   附言:这招不错
2008-04-21 17:35
frankqnj
Rank: 4
等 级:贵宾
威 望:12
帖 子:320
专家分:278
注 册:2008-4-6
收藏
得分:0 
最简单的 len 就能实现啊
看 有几个字符。1个就"000"&  2个的话 就 "00"&  3个就"0"&
2008-04-21 19:16
lele2007
Rank: 5Rank: 5
来 自:广东省深圳
等 级:职业侠客
威 望:6
帖 子:1028
专家分:305
注 册:2007-9-4
收藏
得分:0 
<%
dim number
randomize timer
number=int(10000*rnd()+1)
if len(number)<4 then
response.write cstr(0) & number
else
response.write number
end if
%>
<meta http-equiv="refresh" content="1,url=asp.asp">
---------------------------------------------------------------
看看是不是你想要的!保持四位数,不够前面用:0补上!

学习编程www.
2008-04-21 23:48
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 
引用了3楼的.方法不错.
2008-04-22 10:24
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
收藏
得分:0 
'====================================================================
'补位
Function BuWei(newid,LengthStr)
newid2 = ""
i = 0
IDLength = LengthStr  '共几位,不足以0来补。
newidLength = Len(newid)
buweiLength = IDLength - newidLength
If buweiLength > 0 then
   For i = 1 to buweiLength
       newid2  = "0" & newid2
   next
Else
   newid2 = ""
End If

newid2 = newid2 & newid
BuWei = newid2
End Function

从明天起做幸福的人,喂马劈柴周游世界!
2008-04-22 10:42
快速回复:怎么使数字保持四位?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.059752 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved