asp clássico: Como formatar um número com zeros?

.NET

09/09/2016

people

No VBScript, como formatar um número para string no formato "0020", "020",etc?

Existe alguma forma elegante de fazer?
thanks :)
Gladstone Matos

Gladstone Matos

Curtidas 0

Melhor post

Jothaz

Jothaz

09/09/2016

Muitos dizem que código elegante é o que funciona, mas nem pretendo entrar nesta ceara.

Não sei se os exemplos abaixo vão estar a altura da exigência de elegância e nem tive como testar, mas pelo lhe dará uma ideia.


Function preencheCaracterAesquerda(stringAFormatar, tamanho, caracterPreencher)
  preencheCaracterAesquerda = Right(String(tamanho, caracterPreencher) & stringAFormatar, tamanho)
end function


Ou:

stringAFormatar = "22"
result = Right("0000" & stringAFormatar,4)
GOSTEI 1

Mais Respostas

Gladstone Matos

Gladstone Matos

09/09/2016

risos irado Jothaz MUITO obrigado :)))
GOSTEI 0
Jothaz

Jothaz

09/09/2016

kkkk.

E tem milhares de anos que não uso VbScritp.

Mas que bom que lhe ajudou.
GOSTEI 0
POSTAR