Les nombres avec les zéros non significatifs, en utilisant VB6

Question

Comment puis-je ajouter des zéros à un certain nombre? Par exemple:

Dim stracctnumber as String
stracctnumber = 987654321

Si stracctnumber est inférieur à 15 caractères, puis ajouter des zéros au numéro de compte.

Le nombre final doit être

stracctnumber = "000000987654321"

Quelqu'un peut-il me aider?

Answer 1

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

Answer 2

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

Notez que concaténation est relativement « cher ». Si cela est juste pour l'affichage, plutôt que de modifier la valeur sous-jacente, pensez à utiliser la fonction Format().

Answer 3

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

est d'ajouter des espaces à gauche.

fonctionne très bien dans VBA Excel .....