Os números com zeros à esquerda, utilizando VB6

Question

Como posso adicionar zeros à esquerda para um número? Por exemplo:

Dim stracctnumber as String
stracctnumber = 987654321

Se stracctnumber é menos de 15 caracteres, em seguida, adicionar zeros à esquerda para o número da conta.

O número final deve ser

stracctnumber = "000000987654321"

Alguém pode me ajudar?

Answer 1

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

Answer 2

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

Note que concatenação é relativamente 'caro'. Se esta é apenas para exibição, em vez de modificar o valor subjacente, considere usar a função Format().

Answer 3

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

Esta é adicionar espaços para a esquerda.

funciona muito bem em VBA Excel .....