使用vb6的前导零的数字

Question

如何在数字中添加前导零？ 例如：

Dim stracctnumber as String
stracctnumber = 987654321

如果stracctnumber小于15个字符，则将前导零添加到帐号。

最终的数字应为

stracctnumber = "000000987654321"

任何人都可以帮助我吗？

Answer 1

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

Answer 2

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

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

Answer 3

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

这是为了向左边添加空格。

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