Homa Page di Daniele Franceschini

Aggiungere gli zeri davanti numeri

• 
• 

Valutazione attuale:  / 0

ScarsoOttimo 

Dettagli

Categoria principale: Code Snippets

Pubblicato Giovedì, 09 Settembre 2010 09:54

Visite: 602

Talvolta succede che i numeri debbano essere rappresentati con un formato specifico, ad esempio se il numero "1234" dovesse essere rappresentato "001234" in vsb non esiste una funzione che permette questa operazione.

Pertanto in questo caso si può fare una funzione che antepone una ripetizione dello stesso carattere davanti al numero passato e ritorna una stringa nel formato desiderato. Ovviamente sarebbe possibile fare una funzione per la formattazione più complessa, ma questa per il momento diciamo che è sufficiente.

function FormatNumberString(string_length, sChar, sNumber)
	'il parametro string_length deve essere un numero che indica la lunghezza 
	'finale della stringa restituita dalla funzione
	
	'sChar è il carattere che deve essere anteposto al numero
	'sNumber è il numero che deve essere alterato
	FormatNumberString = right(String(string_length, sChar) & cstr(sNumber), string_length)
end function

'per testare la funzione
msgbox FormatNumberString (6, "0", 1234)

• < Prec