 | | From: | =?Utf-8?B?eW04MTEw?= | | Subject: | =?Utf-8?B?5oiR5oOz5bCG5pWw5a2XMeagvOW8j+WMluS4ujAwMDHor7fpl67lupTor6XmgI4=?= | | Date: | Wed, 29 Dec 2004 19:01:07 -0800 |
|
|
 | 涓嶅ソ鎰忔,鍥犱负浠庢潵娌＄敤杩.
--
鎴戜笉鏄珮鎵
|
|
| | From: | squirrel_sc | | Subject: | Re: 我想将数字1格式化为0001请问应该怎么办啊? | | Date: | Thu, 30 Dec 2004 17:27:43 +0800 |
|
|
| t = 1
if(t < 10) then
response.write "000" & cstr(t)
elseif(t < 100) then
response.write "00" & cstr(t)
elseif(t < 1000) then
response.write "0" & cstr(t)
else
response.write cstr(t)
end if
--
大家共同学习、一起进步。
欢迎来我的blog做客。
http://www.cnblogs.com/squirrel_sc
"ym8110" 写入消息新闻:B69CF848-12D0-47B6-9235-66BBA2BBDA60@microsoft.com...
> 不好意思,因为从来没用过.
> --
>
>
>
> 我不是高手
|
|
| | From: | =?Utf-8?B?QWxvbmVTd29yZA==?= | | Subject: | =?Utf-8?B?UmU6IOaIkeaDs+WwhuaVsOWtlzHmoLzlvI/ljJbkuLowMDAx6K+36Zeu?= | | Date: | Fri, 31 Dec 2004 03:25:07 -0800 |
|
|
| 缁熶竴鏍囧噯锛屽鍒嗘敮锛屼篃璁镐娇鐢╯elect鏇村ソ
鈥渟quirrel_sc鈥濈紪鍐欙細
> t = 1
> if(t < 10) then
> response.write "000" & cstr(t)
> elseif(t < 100) then
> response.write "00" & cstr(t)
> elseif(t < 1000) then
> response.write "0" & cstr(t)
> else
> response.write cstr(t)
> end if
>
> --
> 澶у鍏卞悓瀛︿範銆佷竴璧疯繘姝ャ
> 娆㈣繋鏉ユ垜鐨刡log鍋氬銆
> http://www.cnblogs.com/squirrel_sc
> "ym8110" 鍐欏叆娑堟伅鏂伴椈:B69CF848-12D0-47B6-9235-66BBA2BBDA60@microsoft.com...
> > 涓嶅ソ鎰忔,鍥犱负浠庢潵娌＄敤杩.
> > --
> >
> >
> >
> > 鎴戜笉鏄珮鎵
>
>
>
|
|
| | From: | =?Utf-8?B?5bCP5Lyf?= | | Subject: | =?Utf-8?B?UmU6IOaIkeaDs+WwhuaVsOWtlzHmoLzlvI/ljJbkuLowMDAx6K+36Zeu?= | | Date: | Fri, 7 Jan 2005 00:07:01 -0800 |
|
|
| 杩欐牱鏇寸畝鍗曪細
response.write Right("000" &cstr(t),4)
-------------------------------------------------------------
鈥渟quirrel_sc鈥濈紪鍐欙細
> t = 1
> if(t < 10) then
> response.write "000" & cstr(t)
> elseif(t < 100) then
> response.write "00" & cstr(t)
> elseif(t < 1000) then
> response.write "0" & cstr(t)
> else
> response.write cstr(t)
> end if
>
> --
> 澶у鍏卞悓瀛︿範銆佷竴璧疯繘姝ャ
> 娆㈣繋鏉ユ垜鐨刡log鍋氬銆
> http://www.cnblogs.com/squirrel_sc
> "ym8110" 鍐欏叆娑堟伅鏂伴椈:B69CF848-12D0-47B6-9235-66BBA2BBDA60@microsoft.com...
> > 涓嶅ソ鎰忔,鍥犱负浠庢潵娌＄敤杩.
> > --
> >
> >
> >
> > 鎴戜笉鏄珮鎵
>
>
>
|
|
| | From: | 冷月 | | Subject: | Re: 我想将数字1格式化为0001请问应该怎么办啊? | | Date: | Thu, 13 Jan 2005 15:00:11 +0800 |
|
|
| 这样如果变成两为数不就成了00012了嘛，三位数变成000112。整个就不对了。
--
用音乐培育心灵
"小伟" <@discussions.microsoft.com> 写入消息新闻
:4229A5D3-16B5-4B03-ADCC-D2273A535D0A@microsoft.com...
> 这样更简单：
> response.write Right("000" &cstr(t),4)
>
> -------------------------------------------------------------
>
> “squirrel_sc”编写：
>
> > t = 1
> > if(t < 10) then
> > response.write "000" & cstr(t)
> > elseif(t < 100) then
> > response.write "00" & cstr(t)
> > elseif(t < 1000) then
> > response.write "0" & cstr(t)
> > else
> > response.write cstr(t)
> > end if
> >
> > --
> > 大家共同学习、一起进步。
> > 欢迎来我的blog做客。
> > http://www.cnblogs.com/squirrel_sc
> > "ym8110" 写入消息新闻
:B69CF848-12D0-47B6-9235-66BBA2BBDA60@microsoft.com...
> > > 不好意思,因为从来没用过.
> > > --
> > >
> > >
> > >
> > > 我不是高手
> >
> >
> >
|
|
| | From: | 【MVP】暴力兔 | | Subject: | Re: 我想将数字1格式化为0001请问应该怎么办啊? | | Date: | Tue, 4 Jan 2005 13:36:06 +0800 |
|
|
| Function FormatNum(ByVal lngSour, ByVal lngLen)
Dim strRet
strRet = CStr(lngSour)
If Len(strRet) < lngLen Then
strRet = String(lngLen - Len(strRet), "0") & strRet
End If
FormatNum = strRet
End Function
调用方式，FormatNum(你要格式化的数据, 格式化后字符串的长度)
"ym8110" 写入邮件
news:B69CF848-12D0-47B6-9235-66BBA2BBDA60@microsoft.com...
> 不好意思,因为从来没用过.
> --
>
>
>
> 我不是高手
|
|
| | From: | 冷月 | | Subject: | Re: 我想将数字1格式化为0001请问应该怎么办啊? | | Date: | Wed, 5 Jan 2005 17:27:32 +0800 |
|
|
| 好
--
用音乐培育心灵
"【MVP】暴力兔" 写入消息新闻
:eKjtZ9h8EHA.1564@TK2MSFTNGP09.phx.gbl...
> Function FormatNum(ByVal lngSour, ByVal lngLen)
> Dim strRet
> strRet = CStr(lngSour)
> If Len(strRet) < lngLen Then
> strRet = String(lngLen - Len(strRet), "0") & strRet
> End If
> FormatNum = strRet
> End Function
>
> 调用方式，FormatNum(你要格式化的数据, 格式化后字符串的长度)
> "ym8110" 写入邮件
> news:B69CF848-12D0-47B6-9235-66BBA2BBDA60@microsoft.com...
> > 不好意思,因为从来没用过.
> > --
> >
> >
> >
> > 我不是高手
>
>
|
|
