带前导零的数字，使用vb6

问题描述：

Dim stracctnumber as String 
stracctnumber = 987654321

如果stracctnumber是少于15个字符，然后添加前导零到帐号。

最后的数字应该是

stracctnumber = "000000987654321"

谁能帮助我？

答

stracctnumber = Format(stracctnumber, String(15, "0"))

仅适用于数字“stracctnumber”。 “对（...，15）'适用于任何字符串。 – wqw 2009-12-11 10:08:09

@wqw - 问题是“如何将前导零添加到**号**” – MarkJ 2009-12-11 12:17:13

@MarkJ：不要相信它！阅读代码：'Dim stracctnumber as String' – wqw 2009-12-12 15:07:53

答

strAcct = Right("000000000000000" & strAcct, 15)

请注意，连接相对'昂贵'。如果这只是为了显示，而不是修改基础值，请考虑使用Format()函数。

事情是可能发生的变化。有时它会喜欢10次，它会12或13或9 仍然有效？ – pbrp 2009-12-10 22:07:24

试一试，看看。 – pavium 2009-12-10 22:26:17

答

B8 = Format((Format(B2, "###,###")), "@@@@@@@")

这是添加空格离开。

在VBA Excel中工作伟大.....