以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  将三位以内数字转为三位字符的公式 问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56662)
--  作者：peterx
--  发布时间：2014/9/10 15:23:00
--  将三位以内数字转为三位字符的公式 问题
我想将一个三位以内的整数，转变为三位的字符，不足的加0，公式如下，

dim zxh as short

Dim xzxh As String 

xzxh = SubString(\'000\', 1, 3 - Len(Convert(zxh,\'System.String\'))) + Convert(zxh, \'System.String\')

MessageBox.show(xzxh)


提示：未声明名称 substring   如何修改？

[此贴子已经被作者于2014-9-10 15:24:03编辑过]
--  作者：有点甜
--  发布时间：2014/9/10 15:27:00
--  

Dim zxh As Short = 23


Dim xzxh As String


xzxh = "000".SubString(0, 3 - Cstr(zxh).Length) & zxh


MessageBox.show(xzxh)
--  作者：有点甜
--  发布时间：2014/9/10 15:28:00
--  

 同样意思，代码

 

Dim zxh As Short = 23


Dim xzxh As String


xzxh = Format(zxh, "000")


MessageBox.show(xzxh)
--  作者：peterx
--  发布时间：2014/9/10 15:30:00
--  
这个好！谢谢