Numéros avec des zéros en tête, en utilisant vb6

Comment ajouter des zéros à un nombre? Par exemple:Numéros avec des zéros en tête, en utilisant vb6

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 devrait être

stracctnumber = "000000987654321"

Quelqu'un peut-il me aider?

Source

2009-12-10 pbrp

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

Source

2009-12-10 22:06:38

Fonctionne uniquement pour numeric 'stracctnumber'. 'Right (..., 15)' fonctionne pour n'importe quelle chaîne. – wqw

@wqw - question est "Comment ajouter des zéros à un nombre ** **" – MarkJ

@MarkJ: Ne croyez pas! Lisez le code: 'Dim stracctnumber as String' – wqw

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

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

Source

2009-12-10 21:59:24 Stu

la chose est le stracct peut changer. Parfois, il aimera 10 parfois 12 ou 13 ou 9 ça marche encore? – pbrp

Essayez-le, et voir. – pavium

-1

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

est d'ajouter des espaces à gauche.

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

Source

2017-11-15 22:05:22 George

Numéros avec des zéros en tête, en utilisant vb6

Répondre

Questions connexes