带有前导零的数字,使用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()函数。