Los números con ceros a la izquierda, usando VB6

Question

¿Cómo puedo añadir ceros a la izquierda de un número? Por ejemplo:

Dim stracctnumber as String
stracctnumber = 987654321

Si stracctnumber es menos de 15 caracteres, a continuación, añadir ceros a la izquierda al número de cuenta.

El número final debe ser

stracctnumber = "000000987654321"

Puede alguien ayudarme?

Answer 1

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

Answer 2

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

Tenga en cuenta que la concatenación es relativamente 'caro'. Si esto es sólo para la exhibición, en lugar de modificar el valor subyacente, considere el uso de la función Format().

Answer 3

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

Este es agregar espacios a la izquierda.

funciona muy bien en VBA Excel .....