Числа с начальными нулями, использующие vb6

StackOverflow https://stackoverflow.com/questions/1884358

  •  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.....

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top