Chiffres avec des zéros à gauche, à l'aide de vb6

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

Dim stracctnumber as String
stracctnumber = 987654321

Si stracctnumber est à moins de 15 caractères, puis ajouter des zéros à gauche du numéro de compte.

Le nombre final devrait être

stracctnumber = "000000987654321"

Quelqu'un peut m'aider?

OriginalL'auteur pbrp | 2009-12-10

  1. 12
    stracctnumber = Format(stracctnumber, String(15, "0"))
    Des œuvres pour le numérique stracctnumber seulement. Right(..., 15) fonctionne pour n'importe quelle chaîne de caractères.
    la question est "Comment ajouter des zéros à gauche pour un nombre"
    Ne pas croire! Lire le code: Dim stracctnumber as String

    OriginalL'auteur Jay Riggs

  2. 3
    strAcct = Right("000000000000000" & strAcct, 15)

    Noter que la concaténation est relativement "coûteuse". Si c'est juste pour l'affichage, plutôt que de modifier la valeur sous-jacente, l'utilisation de la Format() fonction.

    le truc, c'est la stracct peut changer. Parfois, il sera de l'ordre de 10 parfois il aura 12 ou 13 ou 9 encore que cela fonctionne?
    L'essayer, et voir.

    OriginalL'auteur Stu

  3. -1

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

    C'est pour ajouter des espaces à gauche.

    FONCTIONNE très bien en VBA Excel.....

    OriginalL'auteur George