Числа с начальными нулями, использующие vb6
-
19-09-2019 - |
Вопрос
Как я могу добавить начальные нули к числу?Например:
Dim stracctnumber as String
stracctnumber = 987654321
Если stracctnumber
меньше 15 символов, затем добавьте к номеру счета начальные нули.
Конечное число должно быть
stracctnumber = "000000987654321"
Кто-нибудь может мне помочь?
Решение
stracctnumber = Format(stracctnumber, String(15, "0"))
Другие советы
strAcct = Right("000000000000000" & strAcct, 15)
Обратите внимание, что конкатенация является относительно "дорогостоящей".Если это предназначено только для отображения, а не для изменения базового значения, рассмотрите возможность использования Format()
функция.
B8 = Format((Format(B2, "###,###")), "@@@@@@@")
Это делается для того, чтобы добавить пробелы слева.
ОТЛИЧНО РАБОТАЕТ в VBA Excel.....
Не связан с StackOverflow