带前导零的数字，使用vb6

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

Dim stracctnumber as String
stracctnumber = 987654321

如果

stracctnumber

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

最后的数字应该是

stracctnumber = "000000987654321"

有人能帮我吗

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

请注意，连接相对“昂贵”。如果这只是用于显示，而不是修改基础值，请考虑使用<代码>格式（）/<代码>函数.< /p> <代码> b8=格式化（（格式（b2，yx*αy，yx*）），“@ @ @ @ @ @ @）< /代码>

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

这是为了在左侧添加空格

---

在VBA Excel中工作得很好….

问题是策略可能会改变。有时它会像10次，有时它会像12次、13次或9次一样仍然有效？只适用于数字

stracctnumber

Right（…，15）

适用于任何字符串。@wqw-问题是“如何将前导零添加到数字”@MarkJ:别相信！阅读代码：

Dim stracctnumber as String