[VB6]: Aggiungere cifre ad un testo numerico (padding)

[nandoar]

salve a tutti supponiamo di avere un valore numerico "123" ma a me interessa che tale valore numerico sia espresso in un numero a 5 cifre es"00123" il problema è che so che posso mettere "00"&"123" ma il problema che è tutto casuale e si possono inserire valori qualsiasi minori uguali a 99999 aiuto

[oregon]

Se n e' una variabile numerica che contiene il tuo valore allora

Print String$(5 - Len(CStr(n)), "0") & CStr(n)

oppure piu' semplicemente

Print Format$(n, "00000")

[EngLab]

Dim Pre As Integer
Dim inte As String

NumCifre = 5
Num = "123"

Pre = NumCifre - Len(Num)
For i = 1 To Pre
inte = "0" & inte
Next i

Num = inte & Num

MsgBox Num

[EngLab]

Originariamente inviato da oregon
Se n e' una variabile numerica che contiene il tuo valore allora

Print String$(5 - Len(CStr(n)), "0") & CStr(n)

oppure piu' semplicemente

Print Format$(n, "00000")

Figuratevi quanto sto indietro...

[vonkranz]

print right("00000"&trim(str(n)),5)

...non hai che l'imbarazzo della scelta...

[nandoar]

grazie siete stati molto amichevoli