Numeri con zeri, usando vb6

Question

Come posso aggiungere zeri iniziali in un numero? Ad esempio:

Dim stracctnumber as String
stracctnumber = 987654321

Se stracctnumber è inferiore a 15 caratteri, quindi aggiungere zeri iniziali per il numero di conto.

Il numero finale dovrebbe essere

stracctnumber = "000000987654321"

Qualcuno mi può aiutare?

Answer 1

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

Answer 2

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

Si noti che la concatenazione è relativamente 'costoso'. Se questo è solo per la visualizzazione, piuttosto che modificando il sottostante, è consigliabile utilizzare la funzione Format().

Answer 3

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

Questo è quello di aggiungere spazi a sinistra.

grandi opere in VBA di Excel .....