vb6 - 带前导零的数字，使用 vb6

Question

如何将前导零添加到数字？例如：

Dim stracctnumber as String
stracctnumber = 987654321

如果stracctnumber少于 15 个字符，则在帐号中添加前导零。

最终数字应该是

stracctnumber = "000000987654321"

谁能帮我？

score 16 · Accepted Answer

16

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

于 2009-12-10T22:06:38.323 回答

score 5 · Accepted Answer

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

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

score -1 · Accepted Answer

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

这是在左边添加空格。

在 VBA Excel 中工作得很好.....

3 回答 3