Completar com Zero

[mkboy 1]

Meu numero do pedido é autonumerico... logo pode ser....10150157010257Porém eu preciso da variavel_numero_do_pedido com 8 numerosOu seja 00000010000001500000157000010257Ou seja, sempre a diferença completar com zero... como faço?

[Salgado 4]

Faz uma função simples para concatenar os zeros, didaticamente:

Funcao preenchezeros(texto,quatidade)
Se comprimento(Texto)<quantidade Faça
Enquanto comprimento(texto)<quantidade
Texto = "0"&Texto
FimEnquanto
End If
preenchezero=texto
fim da função

[mkboy 1]

nao consegui fazer.... :huh:

[Salgado 4]

Fez como MK?

[dead_thinker 0]

pode ser assim tb não?

 

Response.Write Cdbl(Right(string(8, "0") & variavel_numero_do_pedido, 8))

[Mário Monteiro 179]

pode ser assim tb não?

Response.Write Cdbl(Right(string(8, "0") & variavel_numero_do_pedido, 8))

esse é o jeito mais simples porem tem de tirar este CDBL senão não adianta concatenar os zerosseria apenas issoVAR = 124VAR = RIGTH("00000000" & VAR, 8)

[dead_thinker 0]

Ups, é msm, hehe, malz. Vlw

[Mário Monteiro 179]

Ups, é msm, hehe, malz. Vlw

era so um detalhea ideia foi toda sua

[mkboy 1]

perfeito... valeu...

[Mário Monteiro 179]

perfeito... valeu...

de nada tiozinho :rolleyes:

[alfaleo 0]

Legal !

[Daw 0]

Desculpe estar postando neste tópico taaaaaaaaaaaaaaaaanto tempo depois, mas é que precisei disso fiz uma busca e o achei.

 

Achei uma solução um pouco mais simples no meu caso e achei interessante postar aqui.

 

String((numero_de_caracteres_máximo - Len(seu_valor)), "0") & seu_valor

 

Ele verifica quantos carcateres faltaram pra atingir o tamanho que você queria e faz desses valores "0" (zero's) a esquerda, neste caso.

 

[]tz ;)