Zahlen mit führenden Nullen, unter Verwendung von VB6

Question

Wie kann ich führende Nullen zu einer Reihe hinzufügen? Zum Beispiel:

Dim stracctnumber as String
stracctnumber = 987654321

Wenn stracctnumber weniger als 15 Zeichen, dann fügen Sie führende Nullen auf die Kontonummer.

Die endgültige Zahl sollte

stracctnumber = "000000987654321"

Kann mir jemand helfen?

Answer 1

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

Answer 2

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

Beachten Sie, dass Verkettung ist relativ ‚teuer‘. Ist dies nur für die Anzeige ist, anstatt den zugrunde liegenden Wert zu modifizieren, betrachten die Format() Funktion.

Answer 3

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

Dies ist Leerzeichen hinzufügen nach links.

funktioniert super in VBA Excel .....